*COMDECK,HPACOM1
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
      IMPLICIT INTEGER(F-Z) 
      COMMON /COMW/ IPAR(100), PARFN(16), IDATIM(4), AERRSUM, AENTRYS 
     .,FCHAN,FCON,FDT,FEST,FHUID,FJDAY,FJOB,FMTY,FRTY,FSYS,FTIME,FUN
     .,FEOF(16),FILEP(16),FLAGS(30),FROP(8,3,10),FROG(20) 
     .,HCF(5),HDATA(5),IFLD(64),IHDR,IPAGE,IYEAR,LINE,MTY,MTYMAX,RTYMAX 
     .,NEW,OLD,RSEF,RTY,RCFA,RCFD,PLF,OVCALL,NFLD(64),PL(90)
     .,FC7,FC13,FC16,FC20,FPPU,FACHAN,FITTBL(35,16),LFNTBL(16)
     .,SCR1,SCR2,SCR3,SEF,SEFREC(8),TWIC,TYPORD,IEXIT3F,MFID
*         *************************************************** 
