Mercurial > octave-nkf

comparison libcruft/ranlib/getcgn.f @ 10103:0e71ead7359d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use CALL XSTOPX instead of STOP in Fortran ranlib routines New call allows Octave's error handler to intercept otherwise fatal errors in Fortran code
author Rik <rdrider0-list@yahoo.com>
date Wed, 13 Jan 2010 22:22:46 -0800
parents df7c57a6639d
children
comparison
equal deleted inserted replaced
10102:8b4e3388a254 10103:0e71ead7359d
45 C Abort if generator number out of range 45 C Abort if generator number out of range
46 C 46 C
47 IF (.NOT. (g.LT.0.OR.g.GT.numg)) GO TO 10 47 IF (.NOT. (g.LT.0.OR.g.GT.numg)) GO TO 10
48 WRITE (*,*) ' Generator number out of range in SETCGN:', 48 WRITE (*,*) ' Generator number out of range in SETCGN:',
49 + ' Legal range is 1 to ',numg,' -- ABORT!' 49 + ' Legal range is 1 to ',numg,' -- ABORT!'
50 STOP ' Generator number out of range in SETCGN' 50 CALL XSTOPX (' Generator number out of range in SETCGN')
51 51
52 10 curntg = g 52 10 curntg = g
53 RETURN 53 RETURN
54 54
55 END 55 END