        DOUBLE PRECISION R8
        REAL R4
        INTEGER I2,ICOM,IVAR,ICL1,ICL2,ICL3,RDWR
        CHARACTER L1*1
        COMMON/TRANS/R8,R4,I2,ICOM,IVAR,ICL1,ICL2,ICL3,RDWR
        COMMON/CTRANS/L1
