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

hyb

2025-11-07 cadac0a99d87c53805a07f3b4ca7fd11e524fe4a

1
2
3
4
5
6
subroutine shift_a(dim_a, a)
    use data, only: shift
    integer, intent(in) :: dim_a
    real(8), intent(inout), dimension(dim_a) :: a
    a = a + shift
end subroutine shift_a