C C MTCOM.FTN -- MAGTAPE COMMON BLOCK C COMMON /MTCOM/ MTEFN ,MTPAR(2), 1 MTDSW ,MTIOS(2), 1 MTATTF,MTDETF,MTRWDF,MTRWUF, 1 MTEOFF,MTSECF, 1 MTSPBF,MTSPFF,MTSTCF,MTSMOF, 1 MTWLBF,MTRLBF, 1 MTSUCS,MTPNDS,MTCLRS,MTSETS, 1 MTBBES,MTBYTS,MTDNRS,MTEOFS, 1 MTEOTS,MTEOVS,MTFHES,MTPRIS, 1 MTVERS,MTWLKS, 1 MTSUCL,MTPNDL,MTEOFL, 1 MTDSEL,MTIOEL,MTERRL, 1 MTWAIT BYTE MTBYT LOGICAL MTSUCL,MTPNDL,MTEOFL LOGICAL MTDSEL,MTIOEL,MTERRL LOGICAL MTWAIT EQUIVALENCE (MTBYT ,MTIOS(1)) EQUIVALENCE (MTIOS1,MTIOS(1)) EQUIVALENCE (MTIOS2,MTIOS(2))