character*128   finp,fout,fres,fsav,fplt,fincld    ,record*255
      common /comfil/ finp,fout,fres,fsav,fplt,fincld(10),record