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 except SFTRAN3 internals
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 except SFTRAN3 internals
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 except SFTRAN3 internals
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 except SFTRAN3 internals
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
|
