Laserfiche WebLink
<br />Variabie iist4ltr computation procedure'" <br /> <br />6-2 <br /> <br /> YMAX <br />~~ <br /> TINFL <br />N <br />~ SCONT <br />tQ <br />~ CARRY <br /> SARKJM <br /> STCONT <br /> TCARRY <br /> XOAY <br /> I <br /> NTOA <br /> IAPR1 <br /> IAPR7 <br /> RESTORE <br /> <br />Maximum contents, theoretical or actual, for use in <br />SUBROUTINE LPLOT <br /> <br />Theoretical average daily inflow. <br /> <br />Serially arrayed actual end-of-day contents. <br /> <br />Carryover storage from previous compact year. <br /> <br />Serially arrayed outflow from John Martin Reservoir. <br /> <br />Serially arrayed theoretical end-of-day contents. <br /> <br />Theoretical carryover storage from previous Compact <br />Year. <br /> <br />Serial day number for use in SUBROUTINE LPLOT <br />A DO loop index. <br /> <br />A DO loop terminal parameter equal to the number of <br />total days, annually. <br /> <br />Serial day number indexing April 1st. <br />SerIal day number indexing April 7th. <br /> <br />The quantity equal to the previous day's theoretical <br />end-of-day reservoir contents plus the current day's <br />theoreticai inflow. <br /> <br />SARKLA Serially arrayed average daily flow for the Arkansas <br />River near Las AnImas. <br /> <br />SPUR LA Seriaily arrayed average daily flow for the Purgatoire <br />River near Las Animas. <br /> <br />CON MAX Maximum storage at conservation pool limit. <br /> <br />FORTRAN Statements <br />. <br /> <br />DO nn A serial conputation procedure executed between the DO <br />statement and a statement label nn, the execution to <br />be repeated for a successively incremented index which <br />varies from an initial parameter to a terminai <br />parameter. <br /> <br />nn CONTINUE The terminal statement in the DO procedure. <br /> <br />GOTO nn Execution is directed to statement label nn. <br /> <br />, <br />A logical test of expression e which, if true, causes <br />execution of S. Test given by .LT. (less than) or .GT <br />(greater than) comparIson. <br /> <br />FLOAT(n) Assign the integer n as a reai number. <br /> <br />IF(e)S <br /> <br />-~--- <br />