Laserfiche WebLink
<br />Appendix A <br />Program ORDER <br /> <br />C THIS PROGRAM READS THE YEARLY MAXIMUM FLOOD DATA OF A RIYER, <br />C ORDERS THIS DATA INTO AsCENOING ORDER, AND THEN STORES THE <br />C DATA ON DISK FOR FUTURE ANALYSIS. NECESSARY INPUT IS THE <br />C NUMBER OF YEARS OF THE RECORD AND THE ACTUAL DATA. M 15 THE <br />C NUMBER OF YEARS OF DATA RECORD. X 15 AN ARRAY FOR THE DATA <br />C ITSELF. <br />FILE I(KIND.DIsK,TITLE,'sAGUENAY/DATA") <br /> <br />DIMENSION X(200) <br />C M, THE NUHBER OF YEARS OF OATA 15 READ. <br />READIS,fl" <br /> <br />C THE DATA 15 READ FREE FOR~AT AND STORED IN ARRAY X. <br />REAO(S,/)IX(I),I.I,") <br />C THE DATA 15 ORDERED IN ASCENDING ORDER, THUS xli) 15 THE <br />C SMALLEST AND X(M) IS THE LARGEST MAXIMUM YEARLY FLOOD. <br />NESTED." <br />L.NEsTEO-1 <br />00 20 J'I,L <br />NESnD'NEsTEO-1 <br />00 20 1.I,NEsTEO <br />IFIXII)-XII+I))20,20,30 <br />30 sAVE'XII) <br />XI!l.Xlhl) <br />X (1 + I) ,sA VE <br />20 CONTINUE <br />"RITE (b,IOO)M <br /> <br />100 FORMATIIX,' THE NUMBER OF YEARS OF RECORD.',IIS,IIIII) <br />.RITllb,200) <br />200 FORMATIIX,' THE ORDERED MAXIMUM YEARLY FLODos',III) <br />.RITE(I,IOl)IXII),I'I,H) <br />HRITElb,120)IXII),I'I,M) <br />120 FORHATIIX,SFIO.I,/) <br />101 FORMATIIX,FI2.2) <br />C ORDERED DATA IS SAVED ON DISK. <br />LOCK I <br />STOP <br />END <br /> <br />29 <br />