# COMMOnblocks - Re-ordered for use with UOW's FORTRAN
#
#common /CCHAR/ extdig(10), . . etc
   integer extdig   # external representation of digits
   integer intdig   # internal rep (ascii)
   integer extlet   # external rep of letters (normal case)
   integer intlet   # internal rep (ascii lower case)
   integer extbig   # external rep of upper case, if used
   integer intbig   # internal rep (upper case ascii)
   integer extchr   # external rep of special chars
   integer intchr   # internal rep (ascii)
   integer extblk   # external blank
   integer intblk   # internal blank (ascii)
#
#common /CDEFIO/
   integer bp      # next available character; init = 0
   character buf   # pushed-back characters
#
#common /CFOR/
   integer fordep   # current depth of for statements
   character forstk   # stack of reinit strings
#
#common /CKEYWD/
   integer sdo(3), sif(3), selse(5), swhile(6), sbreak(6), snext(5)
   integer sfor(4), srept(7), suntil(6)
   integer vdo(2), vif(2), velse(2), vwhile(2), vbreak(2), vnext(2)
   integer vfor(2), vrept(2), vuntil(2)
#
#common /CLINE/
   integer level   # level of file inclusion; init = 1
   integer linect   # line count on input file(level); init = 1
   integer infile   # file number(level); init infile(1) = STDIN
   integer stdout   # lun for file output; init = STDOUT
   integer errout   # lun for error messages; init = ERROUT
#
#common /CLOOK/
   integer lastp   # last used in namptr; init = 0
   integer lastt   # last used in table; init = 0
   integer namptr   # name pointers
   character table   # actual text of names and defns
#
#common /COUTLN/
   integer outp      # last position filled in outbuf; init = 0
   character outbuf   # output lines collected here
#
common /cchar/ extdig(10), intdig(10), extlet(26), intlet(26),
   extbig(26), intbig(26), extchr(NCHARS), intchr(NCHARS),
   extblk, intblk
common /cdefio/ bp, buf(BUFSIZE)
common /cfor/ fordep, forstk(MAXFORSTK)
common /ckeywd/ sdo, sif, selse, swhile, sbreak, snext,
   sfor, srept, suntil,
   vdo, vif, velse, vwhile, vbreak, vnext, vfor, vrept, vuntil
common /cline/ level, linect(NFILES), infile(NFILES), stdout, errout
common /clook/ lastp, lastt, namptr(MAXPTR), table(MAXTBL)
common /coutln/ outp, outbuf(MAXLINE)
