| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga4.F |
154 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,v2,vVel, |
|
./pkg/flt/flt_runga4.F |
164 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx1,jty1,v2,vVel, |
|
./pkg/flt/flt_runga4.F |
171 |
FLT_RUNGA4 |
v2 = v2 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
182 |
FLT_RUNGA4 |
v2 = v2 + v2*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
195 |
FLT_RUNGA4 |
jty2=jy+0.5*flt_deltaT*v2*scaley |
|
./pkg/flt/flt_runga4.F |
300 |
FLT_RUNGA4 |
& * (v1 + 2*v2 + 2*v3 + v4) * scaley |
|
./pkg/flt/flt_runga4.F |
55 |
FLT_RUNGA4 |
_RL u1, v1, u2, v2, u3, v3, u4, v4 |
|
./pkg/openad/ad_s_different_multiple.F |
40 |
OAD_S_DIFFERENT_MULTIPLE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./pkg/openad/ad_s_different_multiple.F |
53 |
OAD_S_DIFFERENT_MULTIPLE |
v2 = val1 - step |
|
./pkg/openad/ad_s_different_multiple.F |
59 |
OAD_S_DIFFERENT_MULTIPLE |
d2 = v2-v4 |
|
./eesupp/src/diff_phase_multiple.F |
41 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/diff_phase_multiple.F |
57 |
NO PROCEDURE |
v2 = val1 - step |
|
./eesupp/src/diff_phase_multiple.F |
63 |
NO PROCEDURE |
d2 = v2-v4 |
|
./eesupp/src/different_multiple.F |
40 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/different_multiple.F |
53 |
NO PROCEDURE |
v2 = val1 - step |
|
./eesupp/src/different_multiple.F |
59 |
NO PROCEDURE |
d2 = v2-v4 |