Symbol Description Uses
small a small number (used to avoid floating point exceptions) 15


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_eigs.F 239 GMREDI_CALC_EIGS 
           Rmid(i,j) = 1.0/(SQRT(ABS(val(i,j)))+small)
./pkg/gmredi/gmredi_calc_eigs.F 337 GMREDI_CALC_EIGS 
         vecint(m,i,j) = vecint(m,i,j)/(-rlow(i,j)+small)
./pkg/gmredi/gmredi_calc_eigs.F 385 GMREDI_CALC_EIGS 
          vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small)
./pkg/gmredi/gmredi_calc_eigs.F 93 GMREDI_CALC_EIGS 
      _RL small
./pkg/gmredi/gmredi_calc_eigs.F 98 GMREDI_CALC_EIGS 
      small = TINY(zeroRL)
./pkg/gmredi/gmredi_k3d.F 1019 GMREDI_K3D 
          IF (denominator.GT.small) THEN
./pkg/gmredi/gmredi_k3d.F 216 GMREDI_K3D 
      small = TINY(zeroRL)
./pkg/gmredi/gmredi_k3d.F 535 GMREDI_K3D 
          eady(i,j) = small
./pkg/gmredi/gmredi_k3d.F 89 GMREDI_K3D 
      _RL small
./eesupp/src/print.F 1220 PRINT_MAPRL 
      _RL  small
./eesupp/src/print.F 1238 PRINT_MAPRL 
      small  = 1. _d -15
./eesupp/src/print.F 1262 PRINT_MAPRL 
      IF ( fRange .GT. small ) validRange = .TRUE.
./eesupp/src/print.F 787 PRINT_MAPRS 
      _RL  small
./eesupp/src/print.F 805 PRINT_MAPRS 
      small  =  1. _d -15
./eesupp/src/print.F 828 PRINT_MAPRS 
      IF ( fRange .GT. small ) validRange = .TRUE.