← Back to branch summary

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

« back to all changes in this revision

Viewing changes to test/Okay/t208r.dc6

  • 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/t208r.dc6
 
1
C====>Begin Module FOO                    File t208r.f                  
 
2
C---->Makedcls Options: All variables except SFTRAN3 internals          
 
3
C
 
4
C     Parameter variables
 
5
C
 
6
      CHARACTER*(*)       S
 
7
      PARAMETER           (S = 'hello')
 
8
C
 
9
      INTEGER             MAXY
 
10
      PARAMETER           (MAXY = 54321)
 
11
      INTEGER             MAXZ
 
12
      PARAMETER           (MAXZ = 12345+MAXY)
 
13
      INTEGER             MAXTOK
 
14
      PARAMETER           (MAXTOK = 10)
 
15
C
 
16
C     Argument variables
 
17
C
 
18
      CHARACTER*(*)       ARGCHR(MAXROW,MAXCOL,*)
 
19
C
 
20
      INTEGER             MAXCOL,      MAXROW
 
21
C
 
22
C     Local variables
 
23
C
 
24
      CHARACTER           ONE,         ONEAGAIN
 
25
      CHARACTER*3         THREE
 
26
      CHARACTER*(MAXTOK)  TOKLST
 
27
      CHARACTER*2         TWO,         TWOB
 
28
C
 
29
C====>End Module   FOO                    File t208r.f