C TA.INC NO DESCRIPTION......FOUND IN ROUTINE ENRIC2 C REAL TA(5,21), TAL(105) EQUIVALENCE (TA(1,1),TAL(1)) C COMMON /TA/ TA