Symbol Description Uses
qmax 7



File Line number Procedure Code
./pkg/fizhi/fizhi_fillnegs.F 223 TRACER_FILL
      call MAXVAL1 (array,6,-qval,qmax,imax)
./pkg/fizhi/fizhi_fillnegs.F 269 MAXVAL1
      subroutine MAXVAL1 (q,im,qval,qmax,imax)
./pkg/fizhi/fizhi_fillnegs.F 290 MAXVAL1
      _RL   q(im), qmax, qval
./pkg/fizhi/fizhi_fillnegs.F 291 MAXVAL1
      qmax = qval
./pkg/fizhi/fizhi_fillnegs.F 294 MAXVAL1
      if( q(i).gt.qmax ) then
./pkg/fizhi/fizhi_fillnegs.F 295 MAXVAL1
      qmax = q(i)
./pkg/fizhi/fizhi_fillnegs.F 93 TRACER_FILL
      _RL     qmax,qval,sum,fact