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

hyb

2026-01-07 c7f60dc7e9a36596f0e0d1787bd0cca4e9b57bcb

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module datonly
  implicit none
  integer, parameter :: max_value = 100
  real, dimension(:), allocatable :: data_array
end module datonly
 
module dat
  implicit none
  integer, parameter :: max_= 1009
end module dat
 
subroutine simple_subroutine(ain, aout)
  use dat, only: max_
  integer, intent(in) :: ain
  integer, intent(out) :: aout
  aout = ain + max_
end subroutine simple_subroutine