Symbol Description Uses
smallNo 30


File Line number Procedure Code
./pkg/generic_advdiff/gad_dst3_adv_r.F 100 GAD_DST3_ADV_R 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_r.F 101 GAD_DST3_ADV_R 
     &       ABS(Rjp).LT.smallNo ) THEN
./pkg/generic_advdiff/gad_dst3_adv_r.F 105 GAD_DST3_ADV_R 
         thetaM=(Rjp+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 64 GAD_DST3_ADV_R 
      _RL smallNo
./pkg/generic_advdiff/gad_dst3_adv_r.F 69 GAD_DST3_ADV_R 
       smallNo = 1.0D-20
./pkg/generic_advdiff/gad_dst3_adv_r.F 92 GAD_DST3_ADV_R 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_r.F 93 GAD_DST3_ADV_R 
     &       ABS(Rjm).LT.smallNo ) THEN
./pkg/generic_advdiff/gad_dst3_adv_r.F 97 GAD_DST3_ADV_R 
         thetaP=(Rjm+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 100 GAD_DST3_ADV_X 
     &       ABS(Rjp).LT.smallNo ) THEN
./pkg/generic_advdiff/gad_dst3_adv_x.F 104 GAD_DST3_ADV_X 
         thetaM=(Rjp+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 64 GAD_DST3_ADV_X 
      _RL smallNo
./pkg/generic_advdiff/gad_dst3_adv_x.F 70 GAD_DST3_ADV_X 
       smallNo = 1.0D-20
./pkg/generic_advdiff/gad_dst3_adv_x.F 91 GAD_DST3_ADV_X 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_x.F 92 GAD_DST3_ADV_X 
     &       ABS(Rjm).LT.smallNo ) THEN
./pkg/generic_advdiff/gad_dst3_adv_x.F 96 GAD_DST3_ADV_X 
         thetaP=(Rjm+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 99 GAD_DST3_ADV_X 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_y.F 103 GAD_DST3_ADV_Y 
         thetaM=(Rjp+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_y.F 63 GAD_DST3_ADV_Y 
      _RL smallNo
./pkg/generic_advdiff/gad_dst3_adv_y.F 69 GAD_DST3_ADV_Y 
       smallNo = 1.0D-20
./pkg/generic_advdiff/gad_dst3_adv_y.F 90 GAD_DST3_ADV_Y 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_y.F 91 GAD_DST3_ADV_Y 
     &       ABS(Rjm).LT.smallNo ) THEN
./pkg/generic_advdiff/gad_dst3_adv_y.F 95 GAD_DST3_ADV_Y 
         thetaP=(Rjm+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_y.F 98 GAD_DST3_ADV_Y 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_y.F 99 GAD_DST3_ADV_Y 
     &       ABS(Rjp).LT.smallNo ) THEN