Searched refs:SIZCIR (Results 1 – 2 of 2) sorted by relevance
/dports/math/math77/MATH77/ |
H A D | dplot.f | 5899 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 D | splot.f | 5899 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
|