Laserfiche WebLink
<br />, "e::::, <br />N <br />C..~'~ <br />C ~ <br />c-<::::l <br />C <br />C <br /> <br />L <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br /> <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br /> <br />IS THE LAST CALENlJLR YEAR OF THE ,,'j'l;JDY <br />- IS THE NUMBER OF LINE GROUI' HEAD~ ,.;;S <br />- IS THE NUMBER OF LINE HEADINGS <br />- IS THE NUMBER OF SUMMARY TABLES <br />- IS THE NUMBER OF CONSTANTS AND INITIAL "CDATA" VMJU:r.S. <br />- IS THE NUl1BER OF AVERAGE MONTHLY INPUT "ADATA" ;',R:C:X\YS <br />- IS THE NUMBER OF MONTHLY INPUT "HDATA" ARRAYS <br />- IS THE FIRST CALENDER YEAR OF THE INPUT 'HDATA' <br />- IS THE NUMBER OF YEARS OF INPUT 'HDATA' TO BE I,E!>.') <br />- IS THE RES. EOM CONTENT LINE NO. ('FLOW' ARRAY) <br />- IS THE NUMBER OF COMMENT LINES <br />- IS A FLAG TO READ 'HDATA' ONE YEAR AT A TIME <br />- IS THE NUMBER OF 'TABLE'S TO BE SAVED <br />- IS THE NUMBER OF SUMMARY TABLES TO BE PLOTTED <br />NUMBER OF LINES TO BE PRINTED AFTER EACH LINE-GROUP <br />HEADING. ONE LINE OF 'NG' ITEMS (FREE-FIELD - INTEGER) <br />3. THE NAME OF THE OUTPUT FILE (7CHAR) FOLLOWED BY A LIST <br />OF THE 'TABLE'S TO BE SAVED (3 CHAR EACH). OMIT THIS CARD <br />IF 'NOUT' =0. <br />4. THE LIST OF SUMMARY TABLES TO BE PLOTTED (3 CHAR. EACH) <br />TABLES CONTAINING E-O-M RES. CONTENTS SHOULD BE ENTERED AS <br />A NEGATIVE VALUE. OMIT THIS CARD IF 'IPLT'=O. <br />5. TITLE AND RUN DESCRIPTION - 2 LINES OF UP TO 80 CHARACTERS <br />EACH. INFOffi1ATION SHOULD BE CENTERED IN THE 80 SPACES <br />(FORMATED-TABLE-NUMERIC) <br />6. COMMENTS OR RUN DESCRIPTION ('NCL' LINES OF 80 COLUMNS) <br />7. CONSTANTS AND INITIALIZING TERMS ("CDATA" ARRAY) AND A DESCRIPTION <br />OF EACH - NC ITEMS ,ONE PER LINE 10 SPACES EACH FOLLOWED BY A <br />40 CHARACTER DESCRIPTION OF EACH <br />8. LINE-GROUP HEADINGS - NG LINES OF UP TO 40 CHARACTERS PER <br />LINE LEFT JUSTIFIED (FORMATED - ALPHA-NUMERIC) <br />9. LINE HEADINGS - NL LINES OF UP TO 27 CHARACTERS PER LINE <br />LEFT JUSTIFIED (FORMATED - ALPHA-NUMERIC) <br />SUMMARY TABLE HEADINGS - NT LINES OF UP TO 80 CHARACTERS <br />PER LINE WHICH SHOULD BE CENTERED IN THE 80 SPACES (FORMATED - <br />TABLE-NUMERIC) <br />MONTHLY CONSTANTS - ("ADATA" ARRAY) NA*2 LINES ENTERED AS PAIRS. <br />THE FIRST LINE CONSISTING OF AN 80 CHARACTER DESCRIPTION OF THE <br />CONSTANT, THE SECOND CONSISTING OF 12 ITEMS OF 6 CHARACTERS <br />EACH (FORMATED - REAL) <br />MONTHLY INPUT DATA - ("HDATA" ARRAY) - NH TABLES EACH CONTAINING <br />NYI LINES OF 12 ITEMS PER LINE AND A LINE NUMBER WHICH MAY <br />BE THE YEAR (FREE-FIELD - REAL EXCEPT LINE NUMBER WHICH IS INTEGER) <br /> <br />lEND <br />NG <br />NL <br />NT <br />NC <br />NA <br />NH <br />I FRST <br />NY! <br />NRES <br />NCL <br />INPT <br />NOUT <br />IPLT <br />2. THE <br /> <br />10. <br /> <br />11. <br /> <br />12. <br /> <br />WRITE(0,4) <br />4 FORMAT(' PRINT DATA SUMMARY FOR EACH YEAR [YjN] ',\) <br />READ(O,5)ANS <br />5 FORMAT (AI) <br />WRITE(0,7) <br />7 FORMAT(' ENTER TODAYS DATE (MMjDDjYY) :',\) <br />READ(0,8) RDATE <br />8 FORMAT (AI0) <br />CALL READS(INPT,NOUT,IFILE,ISAVE,IPLT,IPLOT,IRES) <br />C INITIALIZE TABLE STORAGE ARRAYS <br />DO 10 K=l,NT <br />DO 10 I=l,NYI <br />DO 10 J=1,13 <br />10 TABLE(K,I,J)=O.O <br />C INITIALIZE SUMMARY ARRAY <br />DO 20 K=l,NL <br />