Symbol Description Uses
DBLE 15


File Line number Procedure Code
./pkg/flt/flt_init.F 262 FLT_INIT 
         npart_dist = DBLE(npart_tile(bi,bj))
./pkg/flt/flt_restart.F 53 FLT_RESTART 
            tmp(1) = DBLE(npart_tile(bi,bj))
./pkg/flt/flt_restart.F 54 FLT_RESTART 
            tmp(2) = DBLE(myCurrentIter)
./pkg/flt/flt_restart.F 84 FLT_RESTART 
         npart_dist = DBLE(npart_tile(bi,bj))
./pkg/flt/flt_up.F 99 FLT_UP 
         tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
./pkg/flt/flt_traj.F 98 FLT_TRAJ 
         tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
./verification/flt_example/extra/write_float.F 205 NO PROCEDURE 
                   npart  = DBLE(ip)
./verification/flt_example/extra/write_float.F 210 NO PROCEDURE 
                   kfloat = DBLE(ip)
./pkg/sphere/sphere.F 560 HELMHOLTZ 
            X(L) = SNGL(1.0D0/DSQRT(DBLE(FLOAT(4*L*L-1))))
./pkg/sphere/sphere.F 561 HELMHOLTZ 
            Y(L) = SNGL(DSQRT(DBLE(FLOAT(L))))
./pkg/sphere/sphere.F 562 HELMHOLTZ 
            Y(L+LMAX) = SNGL(DSQRT(DBLE(FLOAT(L+LMAX))))
./pkg/sphere/sphere.F 569 HELMHOLTZ 
      C  = SNGL(DSQRT(1.0D0-DBLE(S)*DBLE(S)))
./pkg/sphere/sphere.F 613 RECUR_Z 
         ZZ   = ZZ * DBLE(FLOAT(L+L+1))/DBLE(FLOAT(L+L))