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