Symbol Description Uses
w4 8


File Line number Procedure Code
./pkg/flt/flt_runga4.F 256 FLT_RUNGA4 
                CALL FLT_TRILINEAR(itx3,jty3,ktz3,w4,wVel,
./pkg/flt/flt_runga4.F 275 FLT_RUNGA4 
                  w4 = w4 + PORT_RAND_NORM()*flt_noise
./pkg/flt/flt_runga4.F 286 FLT_RUNGA4 
                  w4 = w4 + w4*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 304 FLT_RUNGA4 
     &                          * (w1 + 2*w2 + 2*w3 + w4) * scalez
./pkg/flt/flt_runga4.F 57 FLT_RUNGA4 
      _RL w1, w2, w3, w4, ktz1, ktz2, ktz3, kz, scalez