hdiff output

r21998/startup.src 2017-01-21 10:34:12.554250000 +0000 r21997/startup.src 2017-01-21 10:34:12.870250000 +0000
160:         IF (OLDSYN.EQ.1) THEN160:         IF (OLDSYN.EQ.1) THEN
161: C     --- data directory (old syntax) ---161: C     --- data directory (old syntax) ---
162:           call HandleDataDirectory(arg,arglen)162:           call HandleDataDirectory(arg,arglen)
163:         ELSE IF (OLDSYN.EQ.2) THEN163:         ELSE IF (OLDSYN.EQ.2) THEN
164: C     --- working directory (old syntax) ---164: C     --- working directory (old syntax) ---
165:           call HandleWorkingDirectory(arg,arglen)165:           call HandleWorkingDirectory(arg,arglen)
166:         ELSE IF (OLDSYN.EQ.3) THEN166:         ELSE IF (OLDSYN.EQ.3) THEN
167: C     --- failure action (old syntax)167: C     --- failure action (old syntax)
168:           call HandleFailureAction(arg,arglen)168:           call HandleFailureAction(arg,arglen)
169:         ELSE169:         ELSE
170: C bs360   CALL WRNDIE(-5,'<CHANDLE>',170:           CALL WRNDIE(-5,'<CHANDLE>',
171:           CALL WRNDIE(1,'<CHANDLE>', 
172:      $             'Unrecognized argument "'//ARG(1:ARGLEN)//171:      $             'Unrecognized argument "'//ARG(1:ARGLEN)//
173:      $             '". May be an error in the old syntax')172:      $             '". May be an error in the old syntax')
174:         ENDIF173:         ENDIF
175: ##ENDIF ! QUANTA174: ##ENDIF ! QUANTA
176: ##IF PVM175: ##IF PVM
177:       ELSE IF(ARG(1:2).EQ.'-n') THEN176:       ELSE IF(ARG(1:2).EQ.'-n') THEN
178: C        this argument was parsed to get the number of processors for PVM.177: C        this argument was parsed to get the number of processors for PVM.
179: C        get the next argument (number of processors) and ignore both since178: C        get the next argument (number of processors) and ignore both since
180: C        they have already been dealt with in pvmfbegin.179: C        they have already been dealt with in pvmfbegin.
181:         IARG=IARG+1180:         IARG=IARG+1
232:         CALL MGETARG(IARG, ARG, ARGLEN)231:         CALL MGETARG(IARG, ARG, ARGLEN)
233:         IF (ARG(1:1).EQ.' ') CALL WRNDIE(-5,'<CHANDLE>',232:         IF (ARG(1:1).EQ.' ') CALL WRNDIE(-5,'<CHANDLE>',
234:      $            'Unexpected end of arguments after "-p4wd"')233:      $            'Unexpected end of arguments after "-p4wd"')
235: ##ENDIF ! MPI234: ##ENDIF ! MPI
236:       ELSE235:       ELSE
237: ##IF MPI PARALLEL ENSEMBLE236: ##IF MPI PARALLEL ENSEMBLE
238: C     The problem for parameters is not easy solvable in case of237: C     The problem for parameters is not easy solvable in case of
239: C     MPICH library so for now we just ignore the errors.238: C     MPICH library so for now we just ignore the errors.
240: C     -np, -p4pg and -p4wd will not report the error, but 239: C     -np, -p4pg and -p4wd will not report the error, but 
241: C     some combination of mpirun options are still hard to deal with240: C     some combination of mpirun options are still hard to deal with
242: C bs360   CALL WRNDIE(-5,'<CHANDLE>',241:         CALL WRNDIE(5,'<CHANDLE>',
243:          CALL WRNDIE(1,'<CHANDLE>', 
244:      $        'Unrecognized argument "'//ARG(1:ARGLEN)//'"')242:      $        'Unrecognized argument "'//ARG(1:ARGLEN)//'"')
245: ##ELSE243: ##ELSE
246: C bs360   CALL WRNDIE(-5,'<CHANDLE>',244:         CALL WRNDIE(-5,'<CHANDLE>',
247:          CALL WRNDIE(1,'<CHANDLE>', 
248:      $        'Unrecognized argument "'//ARG(1:ARGLEN)//'"')245:      $        'Unrecognized argument "'//ARG(1:ARGLEN)//'"')
249: ##ENDIF246: ##ENDIF
250:       ENDIF247:       ENDIF
251: C248: C
252:       IARG = IARG+1249:       IARG = IARG+1
253:       IF (IARG.GT.MXARGS) THEN250:       IF (IARG.GT.MXARGS) THEN
254:         CALL WRNDIE(0,'<CHANDLE>',251:         CALL WRNDIE(0,'<CHANDLE>',
255:      $        'Too many command line arguments')252:      $        'Too many command line arguments')
256:       ELSE253:       ELSE
257:         GO TO 101254:         GO TO 101


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0