Home
last modified time | relevance | path

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

/dports/math/math77/MATH77/
H A Ddplot.f5899 1 R, ROTATE, SIZCIR, WW, XA, XMAX, XMIN, XW, YA, YMAX, YMIN, YW local
5901 1 LPENV, LOCPEN, LSYMB, NSKIP, NVERT, ROTATE, SIZCIR
5971 SIZCIR = mod(K, 10)
6107 if (SIZCIR .ne. 0.D0) then
6108 R = SIZCIR / sqrt((XY(3)-XW)**2 + (XY(4)-YW)**2)
6113 if (SIZCIR .ne. 0.D0) then
6123 write (IOFIL, BFMT1) XY(1), XY(2), SIZCIR
H A Dsplot.f5899 1 R, ROTATE, SIZCIR, WW, XA, XMAX, XMIN, XW, YA, YMAX, YMIN, YW local
5901 1 LPENV, LOCPEN, LSYMB, NSKIP, NVERT, ROTATE, SIZCIR
5971 SIZCIR = mod(K, 10)
6107 if (SIZCIR .ne. 0.E0) then
6108 R = SIZCIR / sqrt((XY(3)-XW)**2 + (XY(4)-YW)**2)
6113 if (SIZCIR .ne. 0.E0) then
6123 write (IOFIL, BFMT1) XY(1), XY(2), SIZCIR