codekingpro/portable-devtools

1      MODULE MOD_TYPES
2        INTEGER, PARAMETER :: SP = SELECTED_REAL_KIND(6, 37)
3        INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15, 307)
4      END MODULE
5!
6      MODULE F_GLOBALS
7         USE MOD_TYPES
8         IMPLICIT NONE
9         INTEGER, PARAMETER :: N_MAX = 16
10         INTEGER, PARAMETER :: I_MAX = 18
11         INTEGER, PARAMETER :: J_MAX = 72
12         REAL(SP) :: XREF
13      END MODULE F_GLOBALS
14!
15       SUBROUTINE DUMMY ()
16!
17       USE F_GLOBALS
18       USE MOD_TYPES
19       IMPLICIT NONE
20!
21       REAL(SP) :: MINIMAL
22       MINIMAL = 0.01*XREF
23       RETURN
24!
25       END SUBROUTINE DUMMY
26