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

hyb

2025-11-07 cadac0a99d87c53805a07f3b4ca7fd11e524fe4a

1
2
3
4
5
6
7
8
module data
   real(8) :: shift
contains
   subroutine set_shift(in_shift)
      real(8), intent(in) :: in_shift
      shift = in_shift
   end subroutine set_shift
end module data