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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
C====>Begin Module %MAIN File t208e.f
C---->Makedcls Options: All variables
C
C Local variables
C
character C
character*81 LINE
C
complex Z, ZZ
C
double complex ZZZ, ZZZZ
C
double precision D(10,20,30), E(40,50), F(60)
C
integer I, J, K, M
C
logical LOGVAR
C
real R, S(70,80)
C
C====>End Module %MAIN File t208e.f
C====>Begin Module SUB File t208e.f
C---->Makedcls Options: All variables
C
C Local variables
C
real X, Y, Z
C
C Common variables
C
real A, B, C
C
common / SHARE / A, B, C
C
C====>End Module SUB File t208e.f
C====>Begin Module FUN File t208e.f
C---->Makedcls Options: All variables
C
C Local variables
C
real X, Y, Z
C
C Common variables
C
real A, B, C
C
common / SHARE / A, B, C
C
C====>End Module FUN File t208e.f
C====>Begin Module BAR File t208e.f
C---->Makedcls Options: All variables
C
C Intrinsic functions
C
intrinsic COS, SIN, SQRT
C
C External functions
C
external MYSQRT, MYSUB
C
real MYSQRT
C
C Parameter variables
C
integer NPI
parameter (NPI = 9)
C
real PI
parameter (PI = 3.14159265)
C
C====>End Module BAR File t208e.f
|
