Symbol Description Uses
dble 11



File Line number Procedure Code
./lsopt/cubic.F 20 CUBIC
      z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t)
./lsopt/cubic.F 21 CUBIC
      b  = z1 + dble(fp)
./lsopt/cubic.F 28 CUBIC
         discri = z1*z1-dble(fp)*dble(fpa)
./lsopt/cubic.F 37 CUBIC
         discri = dble(fp)/z1
./lsopt/cubic.F 38 CUBIC
         discri = discri*dble(fpa)
./lsopt/cubic.F 63 CUBIC
         den  = sngl(z1+b+dble(fpa))
./pkg/matrix/matrix_write_tendency.F 80 MATRIX_WRITE_TENDENCY
        recipImpMatrixCounter = (1. _d 0)/dble(impMatrixCounter)