Symbol Description Uses
TypPtr 9



File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1182 TMPFAC
      INTEGER ITYP(NCH), ChNo, TypPtr
./pkg/fizhi/fizhi_lsm.F 1214 TMPFAC
      TypPtr = MOD(ChNo,MemFac) + (ITYP(ChNo)-1)*MemFac + 1
./pkg/fizhi/fizhi_lsm.F 1215 TMPFAC
      FTEMP(ChNo) = (TC(ChNo) - VGTLL(TypPtr)) *
./pkg/fizhi/fizhi_lsm.F 1216 TMPFAC
     &              (TC(ChNo) - VGTU(TypPtr)) *
./pkg/fizhi/fizhi_lsm.F 1217 TMPFAC
     &                    ( VGTCF1(TypPtr)*TC(ChNo)*TC(ChNo) +
./pkg/fizhi/fizhi_lsm.F 1218 TMPFAC
     &                      VGTCF2(TypPtr)*TC(ChNo) +
./pkg/fizhi/fizhi_lsm.F 1219 TMPFAC
     &                      VGTCF3(TypPtr) )
./pkg/fizhi/fizhi_lsm.F 1220 TMPFAC
      IF ( TC(ChNo) .LE. VGTLL(TypPtr) .OR. TC(ChNo) .GE. VGTU(TypPtr) )