← Back to branch summary

~ubuntu-branches/ubuntu/edgy/ftnchek/edgy

« back to all changes in this revision

Viewing changes to test/Okay/t208w.dc2

  • Committer: Bazaar Package Importer
  • Author(s): Mark Brown
  • Date: 2002-03-28 10:49:50 UTC
  • Revision ID: james.westby@ubuntu.com-20020328104950-kssfxlf8u0qsfelr
Tags: upstream-3.1.2
Import upstream version 3.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/Okay/t208w.dc2
 
1
C====>Begin Module S                      File t208w.f                  
 
2
C---->Makedcls Options: All variables                                   
 
3
C
 
4
C     Intrinsic functions
 
5
C
 
6
      INTRINSIC DSIN
 
7
C
 
8
C     External functions
 
9
C
 
10
      EXTERNAL EXTSUB
 
11
C
 
12
      DOUBLE PRECISION DFLOAT, DSQRT
 
13
C
 
14
C     Argument variables
 
15
C
 
16
      DOUBLE PRECISION X
 
17
C
 
18
C     Local variables
 
19
C
 
20
      DOUBLE PRECISION Y
 
21
C
 
22
C     Common variables
 
23
C
 
24
      INTEGER A, B, C
 
25
C
 
26
      COMMON /ONE/ A, B, C
 
27
C
 
28
C     Common variables
 
29
C
 
30
      INTEGER G, H, I
 
31
C
 
32
      REAL U, V, W
 
33
C
 
34
      COMMON /THREE/ G, H, I, U, V, W
 
35
C
 
36
C     Common variables
 
37
C
 
38
      INTEGER D, E, F
 
39
C
 
40
      COMMON /TWO/ D, E, F
 
41
C
 
42
C====>End Module   S                      File t208w.f                  
 
43
C====>Begin Module %MAIN                  File t208w.f                  
 
44
C---->Makedcls Options: All variables                                   
 
45
C
 
46
C     Parameter variables
 
47
C
 
48
      INTEGER L2NG
 
49
      PARAMETER (L2NG = 6)
 
50
      INTEGER NG
 
51
      PARAMETER (NG = 2**L2NG)
 
52
      INTEGER NB
 
53
      PARAMETER (NB = NG+2)
 
54
      INTEGER NGM1
 
55
      PARAMETER (NGM1 = NG-1)
 
56
      INTEGER NBP1
 
57
      PARAMETER (NBP1 = NB+1)
 
58
C
 
59
C     Common variables
 
60
C
 
61
      DOUBLE PRECISION F(0:NBP1,0:NBP1,2)
 
62
C
 
63
      COMMON /FORCE/ F
 
64
C
 
65
C     Equivalenced common variables
 
66
C
 
67
      DOUBLE PRECISION W1(0:NBP1,0:NBP1,1:2), W2(0:NBP1,0:NBP1,1:2)
 
68
C
 
69
C     Common variables
 
70
C
 
71
      DOUBLE PRECISION P(0:NBP1,0:NBP1)
 
72
C
 
73
      COMMON /PRES/ P
 
74
C
 
75
C     Equivalenced common variables
 
76
C
 
77
      DOUBLE PRECISION D(0:NBP1,0:NBP1)
 
78
C
 
79
C====>End Module   %MAIN                  File t208w.f                  
 
80
C====>Begin Module %MAIN                  File t208w.f                  
 
81
C---->Makedcls Options: All variables                                   
 
82
C
 
83
C     Common variables
 
84
C
 
85
      DOUBLE PRECISION X(10)
 
86
C
 
87
      COMMON /ONE/ X
 
88
C
 
89
C     Equivalenced common variables
 
90
C
 
91
      DOUBLE PRECISION Y
 
92
C
 
93
C====>End Module   %MAIN                  File t208w.f                  
 
94
C====>Begin Module %MAIN                  File t208w.f                  
 
95
C---->Makedcls Options: All variables                                   
 
96
C
 
97
C     Common variables
 
98
C
 
99
      DOUBLE PRECISION X(10)
 
100
C
 
101
      COMMON /ONE/ X
 
102
C
 
103
C     Equivalenced common variables
 
104
C
 
105
      DOUBLE PRECISION Y(1), Z(2)
 
106
C
 
107
C====>End Module   %MAIN                  File t208w.f