C TS.INC NO DESCRIPTION C REAL TS(5,21), TT(5,21) REAL TSL(105), TTL(105) EQUIVALENCE (TS(1,1),TSL(1)), (TT(1,1),TTL(1)) C COMMON /TS/ TS, TT