COMMON/UNIT/BEGUNT,IHIST,ISORC,IUNIN,IUNOT,
     1 ISAVE,IUSAMI,IUNAMI,IMAG,ENDUNT
C