C TC2.CIN NO DESCRIPTION C REAL TC2(5,21), T2V(5,21,NPVAR) REAL TC2L(105), T2VL(105,NPVAR) EQUIVALENCE (TC2(1,1),TC2L(1)), (T2V(1,1,1),T2VL(1,1)) C COMMON /TC2/ TC2, T2V