C C MAG-TAPE ROUTINES COMMON DESCRIPTION FILE. C PARAMETER MTEVN=3 COMMON/TCOM/IPRAM(6) INTEGER ISTAT(2)