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