| Symbol | Description | Uses |
| sngl | 4 |
| File | Line number | Procedure | Code |
| ./lsopt/cubic.F | 60 | CUBIC |
if (sngl(b)*sign .gt. 0.0) then |
| ./lsopt/cubic.F | 61 | CUBIC |
t = t + fp*(ta-t)/sngl(b+discri) |
| ./lsopt/cubic.F | 63 | CUBIC |
den = sngl(z1+b+dble(fpa)) |
| ./lsopt/cubic.F | 64 | CUBIC |
anum = sngl(b-discri) |