Searched refs:LKASE (Results 1 – 2 of 2) sorted by relevance
/dports/math/math77/MATH77/ |
H A D | dplot.f | 4212 integer I, INTVAL(5), K, KASE, KTEN, LEXP, LKASE, LTEXTF, LZERO, local 4218 save EPS1, LTEXTF, LKASE, MAXDIG, NCHAR0, NEEDD 4236 data LTEXTF, LKASE / -2, -1 / 4458 if (KASE .eq. LKASE) then 4460 if (mod(LKASE, 2) .eq. 1) then 4473 LKASE = KASE
|
H A D | splot.f | 4212 integer I, INTVAL(5), K, KASE, KTEN, LEXP, LKASE, LTEXTF, LZERO, local 4218 save EPS1, LTEXTF, LKASE, MAXDIG, NCHAR0, NEEDD 4236 data LTEXTF, LKASE / -2, -1 / 4458 if (KASE .eq. LKASE) then 4460 if (mod(LKASE, 2) .eq. 1) then 4473 LKASE = KASE
|