新增齐鲁pad笼位更新操作压测脚本

hyb

2025-11-07 cadac0a99d87c53805a07f3b4ca7fd11e524fe4a

1
2
3
4
5
6
7
subroutine foo(is_, ie_, arr, tout)
 implicit none
 integer :: is_,ie_
 real, intent(in) :: arr(is_:ie_)
 real, intent(out) :: tout(is_:ie_)
 tout = arr
end