Mercurial > hg > octave-lyh

diff libcruft/ranlib/gennf.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
line wrap: on
line diff
--- a/libcruft/ranlib/gennf.f
+++ b/libcruft/ranlib/gennf.f
@@ -61,7 +61,9 @@
       WRITE (*,*) '(3) Noncentrality parameter < 0.0'
       WRITE (*,*) 'DFN value: ',dfn,'DFD value: ',dfd,'XNONC value: ',
      +  xnonc
-      STOP 'Degrees of freedom or noncent param out of range in GENNF'
+
+      CALL XSTOPX
+     + ('Degrees of freedom or noncent param out of range in GENNF')
 
 C      GENNF = ( GENNCH( DFN, XNONC ) / DFN ) / ( GENCHI( DFD ) / DFD )
 C     JJV changed this to call SGAMMA and SNORM directly