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) ) |