Home
last modified time | relevance | path

Searched refs:LKASE (Results 1 – 2 of 2) sorted by relevance

/dports/math/math77/MATH77/
H A Ddplot.f4212 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 Dsplot.f4212 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