| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
25 |
GAD_OSC_MUL_R |
_RL oval,omin,omax |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
47 |
GAD_OSC_MUL_R |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
50 |
GAD_OSC_MUL_R |
if (oval.lt.omin) omin = oval |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
51 |
GAD_OSC_MUL_R |
if (oval.gt.omax) omax = oval |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
25 |
GAD_OSC_MUL_X |
_RL oval,omin,omax |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
47 |
GAD_OSC_MUL_X |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
50 |
GAD_OSC_MUL_X |
if (oval.lt.omin) omin = oval |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
51 |
GAD_OSC_MUL_X |
if (oval.gt.omax) omax = oval |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
25 |
GAD_OSC_MUL_Y |
_RL oval,omin,omax |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
47 |
GAD_OSC_MUL_Y |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
50 |
GAD_OSC_MUL_Y |
if (oval.lt.omin) omin = oval |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
51 |
GAD_OSC_MUL_Y |
if (oval.gt.omax) omax = oval |