C TC3.CIN NO DESCRIPTION C REAL TC3(5,21), TC3L(105), TSH(5,21), TSHL(105) EQUIVALENCE (TC3(1,1),TC3L(1),TSH(1,1),TSHL(1)) C COMMON /TC3/ TC3