C TR.INC NO DESCRIPTION C REAL TR(5,6,6) REAL TRL(180) EQUIVALENCE (TR(1,1,1),TRL(1)) C COMMON /TR/ TR