Symbol Description Uses
jfin 7



File Line number Procedure Code
./lsopt/hessupd.F 47 HESSUPD
      integer jfin, i, j, jp
./lsopt/hessupd.F 53 HESSUPD
      jfin = jmax
./lsopt/hessupd.F 59 HESSUPD
      if (jfin.lt.jmin) jfin = jmax+mupd
./lsopt/hessupd.F 64 HESSUPD
      do j = jfin,jmin,-1
./lsopt/hessupd.F 68 HESSUPD
     &        'j,jfin,jmin = ', j,jfin,jmin
./lsopt/hessupd.F 94 HESSUPD
      do j = jmin,jfin