Symbol Description Uses
thetaMax 22



File Line number Procedure Code
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 100 GAD_DST3FL_ADV_R
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 101 GAD_DST3FL_ADV_R
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 59 GAD_DST3FL_ADV_R
      _RL thetaMax
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 60 GAD_DST3FL_ADV_R
      PARAMETER( thetaMax = 1.D+20 )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 95 GAD_DST3FL_ADV_R
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 96 GAD_DST3FL_ADV_R
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 38 GAD_DST3FL_ADV_X
      _RL thetaMax
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 39 GAD_DST3FL_ADV_X
      PARAMETER( thetaMax = 1.D+20 )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 77 GAD_DST3FL_ADV_X
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 78 GAD_DST3FL_ADV_X
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 82 GAD_DST3FL_ADV_X
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 83 GAD_DST3FL_ADV_X
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 38 GAD_DST3FL_ADV_Y
      _RL thetaMax
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 39 GAD_DST3FL_ADV_Y
      PARAMETER( thetaMax = 1.D+20 )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 73 GAD_DST3FL_ADV_Y
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 74 GAD_DST3FL_ADV_Y
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 78 GAD_DST3FL_ADV_Y
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 79 GAD_DST3FL_ADV_Y
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 57 CHEAPAML_GAD_DST3FL_ADV_R
      _RL thetaMax
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 58 CHEAPAML_GAD_DST3FL_ADV_R
      PARAMETER( thetaMax = 1.D+20 )
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 75 CHEAPAML_GAD_DST3FL_ADV_R
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 76 CHEAPAML_GAD_DST3FL_ADV_R
          thetaM=SIGN(thetaMax,Rjp*Rj)