define(MAXOPEN, 6)
   common /fcomr/ mxfile, actun(MAXOPEN)
   character actun
   integer mxfile
   common /fcomr2/ tiin
   logical tiin