Lines Matching refs:TRI2
517 INTEGER TNEW, TOLD, TRI1(6),TRI2(6), TRIANG(MT) local
543 call STGGET(T2,TRI2,TRIANG)
553 if (TRI2(NABOR2) .eq. T1) then
555 QV4=TRI2(I)
610 T21 = TRI2(I)
612 T22 = TRI2(I)
619 call STGGET( T12,TRI2, TRIANG)
621 if (TRI2(I) .eq. T1) then
622 TRI2(I) = TNEW
626 80 call STGPUT( T12,TRI2, TRIANG, MT)
663 call STGGET( T22,TRI2, TRIANG)
665 if (TRI2(I) .eq. T2) then
666 TRI2(I) = TNEW
670 120 call STGPUT( T22,TRI2, TRIANG, MT)