新增华东师范大学二期新建技术服务费脚本

hyb

2026-01-07 c7f60dc7e9a36596f0e0d1787bd0cca4e9b57bcb

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