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