-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMODULE00.F90
48 lines (48 loc) · 2.03 KB
/
MODULE00.F90
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
MODULE DEFALT
IMPLICIT NONE
! THE FOLLOWING VARIABLES WERE DETECTED. IT IS YOUR
! JOB TO BE SURE THAT THE 'UNKNOWN' TYPE DECLARATIONS ARE
! PROPERLY REVISED TO REFLECT CORRECT INFORMATION.
! ** NOTE : YOU MAY NEED TO DELETE SOME TYPE-DECLARATIONS FROM
! YOUR SOURCE FILE BECAUSE SOME MAY HAVE BEEN COPIED INTO THE
! MODULES.OUT FILE.
!
REAL(4) :: ABCDE
REAL(4) :: EWGDAS
INTEGER(4) :: A1
INTEGER(4) :: A3
INTEGER(4) :: A6
INTEGER(4) :: A7
INTEGER(4) :: A8
INTEGER(4) :: A9
INTEGER(4) :: A11
INTEGER(4) :: A12
! END LIST OF DETECTED COMMON BLOCK VARS.
END MODULE DEFALT
!
MODULE A1
IMPLICIT NONE
! THE FOLLOWING VARIABLES WERE DETECTED. IT IS YOUR
! JOB TO BE SURE THAT THE 'UNKNOWN' TYPE DECLARATIONS ARE
! PROPERLY REVISED TO REFLECT CORRECT INFORMATION.
! ** NOTE : YOU MAY NEED TO DELETE SOME TYPE-DECLARATIONS FROM
! YOUR SOURCE FILE BECAUSE SOME MAY HAVE BEEN COPIED INTO THE
! MODULES.OUT FILE.
!
INTEGER(4) :: K1MK23
INTEGER(4) :: K1MK34
INTEGER(4) :: K1MK56
! END LIST OF DETECTED COMMON BLOCK VARS.
END MODULE A1
!
MODULE TRASH
IMPLICIT NONE
! THE FOLLOWING VARIABLES WERE DETECTED. IT IS YOUR
! JOB TO BE SURE THAT THE 'UNKNOWN' TYPE DECLARATIONS ARE
! PROPERLY REVISED TO REFLECT CORRECT INFORMATION.
! ** NOTE : YOU MAY NEED TO DELETE SOME TYPE-DECLARATIONS FROM
! YOUR SOURCE FILE BECAUSE SOME MAY HAVE BEEN COPIED INTO THE
! MODULES.OUT FILE.
!
! END LIST OF DETECTED COMMON BLOCK VARS.
END MODULE TRASH