Mercurial > hg > octave-nkf
changeset 3691:dd144c6dfc71
[project @ 2000-07-03 01:23:02 by jwe]
| author | jwe |
|---|---|
| date | Mon, 03 Jul 2000 01:24:15 +0000 |
| parents | 55e59236c5e5 |
| children | 3e474e5b2986 |
| files | libcruft/blas-xtra/Makefile.in libcruft/blas-xtra/xerbla.f src/load-save.cc |
| diffstat | 3 files changed, 64 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/libcruft/blas-xtra/Makefile.in @@ -0,0 +1,19 @@ +# +# Makefile for octave's libcruft/blas-xtra directory +# +# John W. Eaton +# jwe@bevo.che.wisc.edu +# University of Wisconsin-Madison +# Department of Chemical Engineering + +TOPDIR = ../.. + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ + +EXTERNAL_DISTFILES = $(DISTFILES) + +include $(TOPDIR)/Makeconf + +include ../Makerules
new file mode 100644 --- /dev/null +++ b/libcruft/blas-xtra/xerbla.f @@ -0,0 +1,43 @@ + SUBROUTINE XERBLA( SRNAME, INFO ) +* +* -- LAPACK auxiliary routine (preliminary version) -- +* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., +* Courant Institute, Argonne National Lab, and Rice University +* February 29, 1992 +* +* .. Scalar Arguments .. + CHARACTER*6 SRNAME + INTEGER INFO +* .. +* +* Purpose +* ======= +* +* XERBLA is an error handler for the LAPACK routines. +* It is called by an LAPACK routine if an input parameter has an +* invalid value. A message is printed and execution stops. +* +* Installers may consider modifying the STOP statement in order to +* call system-specific exception-handling facilities. +* +* Arguments +* ========= +* +* SRNAME (input) CHARACTER*6 +* The name of the routine which called XERBLA. +* +* INFO (input) INTEGER +* The position of the invalid parameter in the parameter list +* of the calling routine. +* +* + WRITE( *, FMT = 9999 )SRNAME, INFO +* + CALL XSTOPX (' ') +* + 9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ', + $ 'an illegal value' ) +* +* End of XERBLA +* + END
--- a/src/load-save.cc +++ b/src/load-save.cc @@ -1564,8 +1564,8 @@ } else if (rank >= 3 && d->import) { - hsize_t *dims = new hsize_t[rank] - hsize_t *maxdims = new hsize_t[rank]; + hsize_t *dims = new hsize_t[rank]; + hsize_t *maxdims = new hsize_t[rank]; H5Sget_simple_extent_dims (space_id, dims, maxdims); hssize_t *start = new hssize_t[rank]; hsize_t *count = new hsize_t[rank];