Laserfiche WebLink
<br />OuU1i8 <br /> <br />OLD <br />CALL RANDEV (X) <br /> <br />NEW <br />call ranf38(x) <br /> <br />. The GOTO 150 statement in Subroutine PWRSIM.FOR, which transferred <br />control within a do loop, was revised as follows: <br /> <br />OLD <br />KBASE = 0 <br />IF (l.NE.MEAD.....) GOTO 150 <br />DO 370 KBASE= 1,2 <br />150 TEFF = HPMAX .... <br /> <br />NEW <br />do 370 kbasex=I,2 <br />kbase = kbasex <br />ifG.ne.mead...) kbase=O <br />150 teff= hpmax... <br /> <br />. The 158 do loop in Subroutine SURPLUS.FOR was revised to insure the loop <br />executes at least once as it would under the FORTRAN 66 used by the USBR's <br />CYBER as follows: (Note this revision was recommended by the USBR of <br />Denver). <br /> <br />OLD <br />DO 158 J=MO,9 <br /> <br />NEW <br />if(mo.le.9) then <br />ntn=9 <br />else <br />ntn=mo <br />endif <br />do 158 j=mo,ntn <br /> <br />. Internal mass storage routines were replaced with sequential or direct assess <br />ANSI standard FORTRAN read and write calls. For Single and Multi-Trace <br />simulations, subroutine ACCUMUL.FOR was revised to store all output in one <br />file (11) using a direct access approach. <br /> <br />OLD <br />CALL REPLC (A) <br />CALL EXIT (A) <br />CALL IFETCH (A) <br />CALL CLOSEM (A) <br />CALL STOREF (A) <br />CALL CREATIS (A) <br /> <br />NEW <br />Various <br /> <br />7 <br />