| File |
Line number |
Procedure |
Code |
|
./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 |
90 |
GAD_DST3FL_ADV_R |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
91 |
GAD_DST3FL_ADV_R |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
95 |
GAD_DST3FL_ADV_R |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
96 |
GAD_DST3FL_ADV_R |
thetaM=SIGN(thetaMax,Rjp*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 |
72 |
GAD_DST3FL_ADV_X |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
73 |
GAD_DST3FL_ADV_X |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
77 |
GAD_DST3FL_ADV_X |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
78 |
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 |
68 |
GAD_DST3FL_ADV_Y |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
69 |
GAD_DST3FL_ADV_Y |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
73 |
GAD_DST3FL_ADV_Y |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
74 |
GAD_DST3FL_ADV_Y |
thetaM=SIGN(thetaMax,Rjp*Rj) |