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