codekingpro/portable-devtools

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