|
cut -c1-80 abnorm.f > abnorm.f80
<br />The 80-character original file is hereafter referred to as [original80]. Once the line numbers are
<br />diff
<br />removed, can be used to compare the files:
<br />diff abnorm.f [original80] abnorm.f [modified]
<br />The output of this command is shown below and is somewhat difficult to read. The arrows indicate
<br />lines that are in/out of one file compared to the other.
<br />0a1
<br />> C$DEBUG
<br />1a3,8
<br />> c
<br />> c rrb Porting Changes:
<br />> c " = '
<br />> c see character
<br />> c rrb Porting Concerns:
<br />> c none
<br />6,18c13,19
<br />< COMMON /GENRL/ LTITLE(8),NCTRL(25,20),MOBEG,IYRBEG,MOEND,IYREND, GENRL
<br />< +NUMNOD,ISEQ(25,20),KPRI,NUMSEQ(25),NDWTR(25,25),MOTRN,IYRTRN,DAT, GENRL
<br />< +TIM,IFLOW,IOC(30),NSMESS,TRENDYR,IW,MOPR,IYRPR,NODPR,ISEQPR, GENRL
<br />< +MAXDEM,MAXNOD,EOMC(25),TIMER(10),NEX(25,10),IDTRA,NRSBERS,IYR,MO, GENRL
<br />< +JYR,ICM,NCOMT,IBASEYR,NYRSOV,IVRSDAT,SUMSALT(25,10),IRUN,IOS(30), GENRL
<br />< +NSKIP,ITRNYR,ITRNMO,DBTITLE(8),NSURPID,IYSURP,JYSURP,DIFSNDP(13) RDO
<br />< +,NFLD,BSURP(2),PROBNU,MYRS(2) RDO
<br />< COMMON / / RDATA(25,100),RULE(25,12),CONEVP(25,12),BANKCO(25), BLANK
<br />< +KSURNM(25,8),QINFLO(25,10, 5),DEMAND(25,10,16),KDEMNM(25,10,8), BLANK
<br />< +TRENDP(25,10,12),TRENDC(25,10,2),ITREND(25,10),BNKRES(25,2) BLANK
<br />< COMMON /POWER/ CAPBAB(25,25),TDATA(25,4),ENERGY(25,8),PDATA(25,12)POWER
<br />< +,BASECFS(25) POWER
<br />< INTEGER TYPE ABNORM
<br />---
<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 />42c43,45
<br />< 220 TYPE=8HR DATA= ABNORM
<br />---
<br />> c
<br />> c rrb 12/21/93 linking error
<br />> 220 TYPE='R DATA= ' ABNORM
<br />44c47
<br />< TYPE=8HP DATA= ABNORM
<br />---
<br />> TYPE='P DATA= ' ABNORM
<br />48,64c51,67
<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 />---
<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 />6
<br />A275 01.08.95 1.05-20 Malers
<br />
|