Laserfiche WebLink
<br />OJU5r <br /> <br />OLD <br />INTEGER KUSE <br />CHARACTER AXAX*3 <br />KUSE(JK,IS,4) = AXAX <br /> <br />NEW <br />integer kuse <br />characternaxax*3,axax*3 <br />naxaxGk,is) = axax <br /> <br />. Format statements were revised to match the type of character read. These edits <br />occurred in INITIAL and READER. In one instance in READER.FOR, the <br />original version of FORMAT 9080 resulted in an error when reading the <br />EQUTWR 200 (tail water elevation for reservoir 200) data. As presented below, <br />the old format resulted in a value of 8_2 being read by the second and third i3 <br />reads which result in an array bound violation when executing under the LAHEY <br />system (note: a x has been inserted to indicate a blank in the data record for <br />presentation only). <br /> <br />EQUTWRx200xxlxx7157.521678x2xxxxxl.652118x3xx...... <br /> <br />OLD <br />FORMAT (2R3, 14, 4(I3,FI2.0) <br /> <br />NEW <br />format(2a3 ,i4, I x,4(i2,f13 .6)) <br /> <br />. Entry, a method of entering a subroutine or function at a location other than the <br />beginning was revised to contain the argument calls. This occurred twice; <br />ENTRY ACOMP in subroutine RESBAL.FOR and ENTRY CFS in function AF <br />of subroutine ACCUMUL.FOR. Note for the ENTRY CFS the function logic <br />was changed to pass the argument CFS rather than AF. <br /> <br />OLD <br />ENTRY ACOMP <br /> <br />NEW <br />entry acomp(deltaqjupjsw,el,al) <br /> <br />ENTRY CFS <br />AF = FLOW/DA/1.9835 <br /> <br />entry cfs(month,iyear,flow) <br />cfs = flow/dal1.9835 <br /> <br />9 <br />