define(MAXOPEN, 6)
   common /fcomr/ mxfile, iolen, lastc, tiin, actun(MAXOPEN), ioin(MAXLINE)
     integer mxfile
     integer iolen
     integer lastc
     logical tiin
     character actun
     character ioin