Laserfiche WebLink
<br />I '~ . <br /> <br />,'C.'.odOG69IF(LGT.ISTART-IFRST+1) GO hJ XX <br />..C - INITIALIZE VARIABLES AND CERTAIN "FLOI," ARMY ITl:;MS TO STAJ:t'l.'INO <br />C CONDITIONS IN "CDATA" ARRAY. <br />C XX J:J+1 <br />C - SET CERTAIN "FLOW" ARRAY ITEMS TO MONTHLY CONSTANTS IN "l>.D>''l'A'' " <br />- TRANSFER INPUTS FROM "HDATA" ARRAY TO "FLOW" ARRAY. <br />L - COI1PUTE REMAINING TERI1S IN "FLOW" ARRAY. <br />C - TRANSFER CERTAIN VARIABLES FROI1 "FLOI'l" ARRAY TO THE "TABLE" <br />C ARRAY FOR OUTPUT AS A SUMI1ARY TABLE. <br />C IF(J.NE.12)GO TO XX <br />C RETURN <br />C END <br />C <br />C *********** PROGRAMING HINTS *********** <br />C MAKE A LIST OF THE LINE HEADINGS AS YOU WANT THEM TO <br />C APPEAR ON YOUR OUTPUT. <br />C NUMBER THIS LIST. <br />C THE NUMBERS ARE THEN THE K TERMS IN THE "FLOW" ARRAY. <br />C <br />C FOR ADDITIONAL HELP CONTACT FRED J. OTRADOVSKY FTS 864-2357 <br />C <br />C ********** PROGRAM DICTIONARY ********** <br />C ADATA(K,J) MONTHLY CONSTANTS <br />C ANAI1E(K,L) DESCRIPTION OF MONTHLY CONSTANTS <br />C TABLE(K,I,J) SUMMARY TABLES <br />C ALHEAD(K,J) LINE HEADINGS <br />C AGHEAD(K,J) LINE-GROUP HEADINGS <br />C ATHEAD(K,J) TABLE HEADINGS <br />C CDATA(K) CONSTANTS OR INITIALIZING TERMS <br />C CNAME(K,L) NAMES OF CONSTANTS AND INITIALIZING TERMS <br />C FLOW(K,J) MONTHLY FLOW DATA <br />HDATA(K,J) 110NTHLY INPUT DATA <br />C I YEAR COUNTER <br />C ICOUNT LINE-GROUP COUNTER <br />C IE LAST YEAR OF STUDY (COUNTER) <br />C lEND LAST YEAR OF STUDY - CALENDER YEAR <br />C NCL FLAG TO PRINT NCL LINES OF SUMMARY INFORMATION <br />C IFRST FIRST CALENDER YEAR OF INPUT DATA TO READ <br />C IGROUP(ICOUNT) NUI1BER OF LINES IN GROUP ICOUNT <br />C ISTART FIRST YEAR OF STUDY - CALENDER YEAR <br />C ISTUDY STUDY NUMBER <br />C J MONTH COUNTER <br />C LCOUNT LINE COUNTER <br />C NA NUMBER OF ADATA ARRAYS TO BE READ <br />C NC NUMBER OF CDATA ITEMS TO BE READ <br />C NH NUMBER OF HDATA ARRAYS TO BE READ <br />C i'lL NUMBER OF LINE HEADINGS <br />C NG NUMBER OF LINE-GROUPS <br />C NT NUMBER OF SUMMARY TABLES <br />C NYI Nill1BER OF YEARS OF INPUT DATA TO BE READ <br />C NRES RES. EOM CONTENT LINE NO. IN FLOW ARRAY <br />C RDATE DATE OF RUN (MONTH.DAY.YEAR) <br />C TITLE(K,L) STUDY TITLE AND DESCRIPTION <br />C <br />C ***** DESCRIPTION OF INPUT DATA ***** <br />C 1. STUDY CONDITIONS AND NUMBER OF INPUT ITEMS - ONE LINE <br />5 SPACES PER ITEM (FORMATED - INTEGER) <br />L THE ORDER OF THE INPUT ITEMS IS AS FOLLOWS - <br />C ISTUDY - IS THE STUDY NUMBER <br />C ISTART - IS THE FIRST CALENDER YEAR OF THE STUDY <br />