Laserfiche WebLink
<br />* <br />'. PROCEDURE H2PLOT <br />* TO USE. ENTER THE CO~MAND: <br />* CALL,H2PLOT(I= ,DEV= .6EOM= <br />* <br />* HYDRAULICS GRAPHICS PACkAGE <br /> <br />.COMP= <br /> <br />.UTPLOT= <br /> <br />* <br /> <br />. <br /> <br />* PROCEDURE TO PLOT X-SECT AND PROFILE <br />* DATASfTS <br />* SUBROUTINES CO~PATIABLE UITH HEC-2 <br />* <br />M~P.ON. <br />REU IN[l, OUTPUTX. <br />* RETRIEVE USER LIBRARY <br />IFI.NOT.FILEIURCMISC,LO)) 6ET.URCMISC/UN=CEL7S1. <br />* GET HYDRAULICS PLOTTING ROUTINES <br />IFI.NOT.FILEIH2SRAPH.LO)) GET,H20RAPH/UN=CEL1Sl. <br />FcEU I NO, H2GRAPH. <br />~5,* <br />* SET GCS DEVICE DEPENDENT ROUTINES <br />IFI.NOT.FILE(I.LO)) 6ET,I/UN=CEL1Sl. <br />GOTO.l0. <br />EXLT. <br />IFIFILEIPROFPL,LO)) 00TO.I0. <br />HIFlLECXSECF'l.LO)) GOTO.IO. <br />STOP. <br />'10. * <br />* CHECK FOR DUP OF HYDRAULICS MODULES <br />IFCFILEIPROFPL,LO).AND.FILECXSECPL,LD)) 60TO.90. <br />* RETRIEVE HYDRAULIC DATA <br />IFI.NOT.FILECTAPE95.LO)) 6ET.IAPEIS=COMP. <br />GOTO.!I. <br />EXlT.U. <br />RF.TU,'N. TAF'E95. <br />11. * <br />IFI.NOT.FILEITAPE2.LO)) OET,TAPE2=OFOM,NA. <br />* RETRIEVE GCG DEVICE [lEPENDENT ROUTINES <br />REUIND.GCSDEV. <br />OET,DEU/UH=CECELB. <br />REWINn.DEV.GCGDEU. <br />UIP! BF. DEV. msnEU. <br />REWIND.DEV.GCSDEU. <br />RETURN.SCSC93,GCSRJE. <br />IFC.NOT.FILECDEV.LO)) GET.DEU/UN=CECElb. <br />IFI,NOT.FILEIGCSCDC,LO)) 6ET,GCSCDC/UN=CECElB. <br />IFi.NOT.FILEI6CSLIB,LO)) GET,GCSLIB/UNcCFCElB. <br />00TO,15. <br />EXIT . <br />'1Fi.HflT.NUMOEU)) GDTO.15. <br />kETURN.GCSLIB,G[SC93.6CSCBC.GC50EV.GCS~Ji. <br />IFIDEV.EO.2) GET.GCSRJE/UN=CECELB. <br /> <br />21 <br />