Laserfiche WebLink
line number causes problems because doing a difference on [original] and [modified] using the <br />diff <br />UNIX command will show every line to be different when many lines are essentially the same <br />(other than the line number). <br />C$DEBUG <br /> SUBROUTINE ABNORM(LOT,J) ABNORM <br />c <br />c rrb Porting Changes: <br />c " = ' <br />c see character <br />c rrb Porting Concerns: <br />c none <br />C-----------------------------------------------------------------------ABNORM <br />C THIS SUBROUTINE PRINTS MESSAGES RELATING TO CERTAIN ERROR ABNORM <br />C CONDITIONS ABNORM <br />C-----------------------------------------------------------------------ABNORM <br /> include 'genrl.com' <br /> include 'blank.com' <br /> include 'power.com' <br />c <br />c INTEGER TYPE ABNORM <br /> character*8 type <br />c <br /> GO TO (100,110,120,130,140,180,190,200,210,150,160,170),LOT ABNORM <br /> 100 WRITE(IW,9010) ABNORM <br /> GO TO 220 ABNORM <br /> 110 WRITE(IW,9020) ABNORM <br /> GO TO 220 ABNORM <br /> 120 WRITE(IW,9030) ABNORM <br /> GO TO 220 ABNORM <br /> 130 WRITE(IW,9040) ABNORM <br /> GO TO 220 ABNORM <br /> 140 WRITE(IW,9050) ABNORM <br /> GO TO 220 ABNORM <br /> 150 WRITE(IW,9070) ABNORM <br /> GO TO 220 ABNORM <br /> 160 WRITE(IW,9080) ABNORM <br /> GO TO 220 ABNORM <br /> 170 CONTINUE ABNORM <br /> GO TO 220 ABNORM <br /> 180 WRITE(IW,9060) ABNORM <br /> GO TO 220 ABNORM <br /> 190 WRITE(IW,9090) ABNORM <br /> GO TO 220 ABNORM <br /> 200 CONTINUE ABNORM <br /> 210 CONTINUE ABNORM <br />c <br />c rrb 12/21/93 linking error <br /> 220 TYPE='R DATA= ' ABNORM <br /> WRITE(IW,9000) TYPE,(RDATA(J,I),I=1,100) ABNORM <br /> TYPE='P DATA= ' ABNORM <br /> WRITE(IW,9000) TYPE,(PDATA(J,I),I=1,12) ABNORM <br /> RETURN ABNORM <br /> 9000 FORMAT(11X,A8,(10X,6E17.10/)) ABNORM <br /> 9010 FORMAT(//' ERROR ABNO001 CAPACITY EXCEEDS THE AREA-CAPACITY ' ABNORM <br /> +'TABULAR DATA') ABNORM <br /> 9020 FORMAT(//' ERROR ABNO002 SOLUTION OF QUADRATIC FOR ELEVATION ' ABNORM <br /> +'IS IMAGINARY') ABNORM <br /> 9030 FORMAT(//' ERROR ABNO003 INSUFFICIENT RESERVOIR CAPACITY') ABNORM <br /> 9040 FORMAT(//' ERROR ABNO004 MINIMUM RELEASE CONSTRAINT VIOLATED ' ABNORM <br /> +'IN MEETING POWER DEMAND') ABNORM <br /> 9050 FORMAT(//' ERROR ABNO005 RESERVOIR RELEASE IS NEGATIVE IN ' ABNORM <br /> +'MEETING CAPACITY CONSTRAINTS') ABNORM <br /> 9060 FORMAT(//' ERROR ABNO006 ITERATION FOR HYDROLOGIC BALANCE IN ' ABNORM <br /> +'SUBROUTINE RESBAL EXCEEDS THE MAXIMUM') ABNORM <br /> 9070 FORMAT(//' ERROR ABNO007 SOLUTION OF QUADRATIC FOR GROSS ' ABNORM <br /> +'POWER HEAD IS IMAGINARY') ABNORM <br /> 9080 FORMAT(//' ERROR ABNO008 GROSS HEAD EXCEEDED MAXIMUM HEAD IN ' ABNORM <br /> +'PREVIOUS TIME FRAME') ABNORM <br /> 9090 FORMAT(//' ERROR ABNO009 IN SUBROUTINE RESBAL, THE FIRST ' ABNORM <br /> +'ITERATION MAY NOT REQUIRE A RESERVOIR RELEASE') ABNORM <br /> END ABNORM <br />The [modified] code has a line length of 80 characters. The line numbers from [original] can be <br />cut <br />removed using the UNIX command to pull the first 80 characters from each line: <br />5 <br />A275 01.08.95 1.05-20 Malers <br />