diff -x.info* -rc2P gsl-1.3/AUTHORS gsl-1.4/AUTHORS *** gsl-1.3/AUTHORS Sun Oct 6 21:46:23 2002 --- gsl-1.4/AUTHORS Tue Jul 22 15:20:10 2003 *************** *** 22,23 **** --- 22,24 ---- Tuomo Keskitalo (tuomo.keskitalo@iki.fi) - multidimensional minimization Ivo Alxneit (ivo.alxneit@psi.ch) - multidimensional minimization + Jason H. Stover (jason@sakla.net) - cumulative distribution functions \ No newline at end of file diff -x.info* -rc2P gsl-1.3/BUGS gsl-1.4/BUGS *** gsl-1.3/BUGS Fri Dec 13 12:02:03 2002 --- gsl-1.4/BUGS Tue Aug 12 11:12:05 2003 *************** *** 37,56 **** ---------------------------------------------------------------------- - BUG#3 -- gsl_sf_bessel_Jn fails for large argument - - From: Rodolphe Conan - To: gsl list - Subject: Re: Bessel function bug or limitation? - Date: Tue, 09 Apr 2002 09:52:19 +0100 - - Rodolphe Conan writes: - > cout << "besselj(2,15000)=" << gsl_sf_bessel_Jn(2,15000) << endl; - > and obtained: - > gsl: bessel.c:531: ERROR: error - > Abort (core dumped) - - One of the continued fraction computations is breaking down - - ---------------------------------------------------------------------- BUG#4 -- gsl_linalg_solve_symm_cyc_tridiag() crashes --- 37,40 ---- *************** *** 79,119 **** ---------------------------------------------------------------------- - BUG#7 -- gsl_sf_coupling_3j loses accuracy for large arguments - - From: Filip Floegel - Subject: gsl_sf_coupling_3j - Date: Wed, 2 Oct 2002 17:45:52 +0200 - - gsl_sf_coupling_3j doesn't work properly for large - angular mementa like j1=j2=j3=40 m1=m2=m3=0 !!! - - gsl_sf_coupling_3j_e(80,80,80,0,0,0,&result) - - which correspond to j1=j2=j3=40 m1=m2=m3=0 - - gives me: - - result.val = 0.0625 - result.err = 0.172766 - - mathematica gives me: - - N[ThreeJSymbol[{40,0},{40,0},{40,0}]] = 0.0149685 - - my guess is that gamma.c which is used for calculating fractional - numbers probably diverges for large integers. - - Note from Serge Winitzki : - - The package "matpack" (www.matpack.de) includes many special functions, - also the 3j symbols. They refer to some quite complicated numerical - methods using recursion relations to get the right answers for large - momenta, and to 1975-1976 papers by Schulten and Gordon for the - description of the algorithms. The papers can be downloaded for free at - http://www.ks.uiuc.edu/Publications/Papers/ - - - ---------------------------------------------------------------------- - BUG#8 -- inexact coefficients in rk8pd.c --- 63,66 ---- *************** *** 171,192 **** ---------------------------------------------------------------------- - - BUG#9 -- problem with multimin example - - From: Thomas Kunert - To: gsl-discuss@sources.redhat.com - Subject: Re: multimin example - - The example for multimin doesn't give me the expected output but a much - worse result. Any idea about the reason? I have gsl 1.2 on Mandrake 8.2. - - 1 4.99629 6.99072 687.84780 - 2 4.98886 6.97215 683.55456 - 3 4.97400 6.93501 675.01278 - 4 4.94429 6.86073 658.10798 - - It's true that there is a problem there, but I don't know why. - - ---------------------------------------------------------------------- BUG#10 -- gsl_sf_fermi_dirac_int error estimates --- 118,121 ---- *************** *** 296,297 **** --- 225,285 ---- ---------------------------------------------------------------------- + + BUG#13 -- gsl_diff functions don't handle large arguments + + The step size in the gsl_diff functions is fixed, and so does not work + for large arguments due to loss of precision. + + > From: eknecronzontas + > Subject: Unusual behaviour in gsl_diff_central? + > Date: Tue, 1 Apr 2003 06:36:38 -0800 (PST) + > + > Hello! + > + > I notice that gsl_diff_central seems to fail + > for large values of the function argument (see code + > below). (I am using gsl 1.3 on Redhat 6.2.) I would + > expect it to return a non-zero value in this case, + > but it returns zero, in spite of trying to evaluate + > the function at x=NaN. + > Am I missing something here? + > + > Thanks, + > Andrew Steiner + > + > double testfun(double x, void *pa) { + > return sin(x); + > } + > + > int main(void) { + > void *vp=0; + > int val; + > double res, err; + > + > gsl_function *gslfunc=new gsl_function; + > gslfunc->function=testfun; + > gslfunc->params=vp; + > + > cout.setf(ios::scientific); + > cout.precision(10); + > + > val=gsl_diff_central(gslfunc,1.0e5,&res,&err); + > cout << val << " " << res << " " << err << " " << + > cos(1.0e5) << endl; + > val=gsl_diff_central(gslfunc,1.0e10,&res,&err); + > cout << val << " " << res << " " << err << " " << + > cos(1.0e10) << endl; + > + > return 0; + > + > } + + ---------------------------------------------------------------------- + BUG#14 -- qagil + + The extrapolation used in qags gives negative results when integrating + the small tails of probability distributions using qagil, even though + each individual term in the sequence is positive and increasing (!). + This is a feature of the original quadpack and appears to be due to + the extrapolation algorithm, which should probably be tweaked to avoid + this undesirable behavior. diff -x.info* -rc2P gsl-1.3/ChangeLog gsl-1.4/ChangeLog *** gsl-1.3/ChangeLog Sun Dec 15 14:32:51 2002 --- gsl-1.4/ChangeLog Tue Jun 17 21:05:10 2003 *************** *** 1,2 **** --- 1,28 ---- + 2003-06-17 Brian Gough + + * configure.ac: converted configure.in to autoconf 2.5x, involved + extensive renaming macros of HAVE_... to HAVE_DECL_.. and changing + usage from #ifdef HAVE to #if HAVE + + 2003-06-16 Brian Gough + + * gsl/Makefile.am (header-links): added a test for the existing + file to avoid spurious error messages when making the symlinks + + 2003-06-12 Brian Gough + + * configure.in: Tidying up, removed old test for bug in gcc 2.95 + on PPC, removed OS/2 warning, removed references to clock function + since benchmark programs are not shipped + + 2003-03-06 Brian Gough + + * gsl_types.h: changed from internal macro _DLL to GSL_DLL + + 2003-02-09 Brian Gough + + * configure.in: added [] quotes in AC_TRY_COMPILE to protect + nested macros + 2002-11-24 Brian Gough diff -x.info* -rc2P gsl-1.3/INSTALL gsl-1.4/INSTALL *** gsl-1.3/INSTALL Mon Dec 9 21:19:59 2002 --- gsl-1.4/INSTALL Tue Aug 12 13:34:54 2003 *************** *** 21,26 **** ./configure --disable-shared ! This is recommended if you encounter problems building the library, ! because some platforms do not support shared libraries. For notes about problems with specific platforms and compilers see the --- 21,26 ---- ./configure --disable-shared ! If you encounter problems building the library try using the above ! option, because some platforms do not support shared libraries. For notes about problems with specific platforms and compilers see the *************** *** 89,92 **** --- 89,105 ---- meantime compile without -g instead if you need to reduce the file size. + 4) The configure script can fail with a segmentation fault on bash-2.01 + + $ ./configure + Segmentation fault + + This is due to a bug in bash, related to the MAIL environment + variable. To work around it use + + $ unset ENV MAIL MAILPATH + $ ./configure + + which should avoid the problem. + Hints for AIX ============= *************** *** 145,149 **** configuration option: ! CFLAGS="-Ae -O" ./configure --- 158,164 ---- configuration option: ! CFLAGS="-Ae" ./configure ! ! To switch on optimization use CFLAGS="-Ae -O". *************** *** 153,169 **** For the Pentium 4 with GCC-3.2 the flags, ! CFLAGS="-O2 -march=pentium4 -mfpmath=sse -msse2" ! increase performance by 33% (reported by Sam Halliday ) Hints for IRIX (SGI) ==================== ! The library should be compiled with the following option, ! ! -OPT:IEEE_NaN_inf=ON ! ! to ensure correct IEEE arithmetic. The tests in sys/ will fail ! without this option. The older deprecated option -OPT:IEEE_comparisons=ON will also work. --- 168,184 ---- For the Pentium 4 with GCC-3.2 the flags, ! CFLAGS="-O2 -march=pentium4 -mfpmath=sse -msse -msse2" ! ! increase performance (as reported by Sam Halliday ). ! Note that P3 machines can also use the above CFLAGS, if the "-msse2" ! is removed and "pentium4" is changed to "pentium3". Hints for IRIX (SGI) ==================== ! The library should be compiled with the CFLAGS option ! -OPT:IEEE_NaN_inf=ON to ensure correct IEEE arithmetic. The tests in ! sys/ will fail without this option. The older deprecated option -OPT:IEEE_comparisons=ON will also work. *************** *** 225,229 **** =========================== ! With Microsoft Visual C++, see the directory msvc/ in the CVS repository. Hints for OpenBSD --- 240,246 ---- =========================== ! A separate version of the library is available for Microsoft Visual ! C++. See the website http://sources.redhat.com/gsl/ or the directory ! msvc/ in the CVS repository. Hints for OpenBSD *************** *** 252,257 **** compiling correctly (e.g. the test program in the blas directory gives a segmentation fault when run). This problem is fixed in recent ! versions of GCC. GSL now includes an autoconf test which detects the ! problem. Hints for Solaris --- 269,273 ---- compiling correctly (e.g. the test program in the blas directory gives a segmentation fault when run). This problem is fixed in recent ! versions of GCC. Hints for Solaris diff -x.info* -rc2P gsl-1.3/Makefile.am gsl-1.4/Makefile.am *** gsl-1.3/Makefile.am Thu Jul 18 18:49:40 2002 --- gsl-1.4/Makefile.am Tue Jul 29 19:50:29 2003 *************** *** 3,9 **** # AUTOMAKE_OPTIONS = readme-alpha ! SUBDIRS = gsl utils sys test err const complex cheb block vector matrix permutation combination sort ieee-utils cblas blas linalg eigen specfunc dht qrng rng randist fft poly fit multifit statistics siman sum integration interpolation histogram ode-initval roots multiroots min multimin monte ntuple diff doc ! SUBLIBS = block/libgslblock.la blas/libgslblas.la complex/libgslcomplex.la cheb/libgslcheb.la dht/libgsldht.la diff/libgsldiff.la eigen/libgsleigen.la err/libgslerr.la fft/libgslfft.la fit/libgslfit.la histogram/libgslhistogram.la ieee-utils/libgslieeeutils.la integration/libgslintegration.la interpolation/libgslinterpolation.la linalg/libgsllinalg.la matrix/libgslmatrix.la min/libgslmin.la monte/libgslmonte.la multifit/libgslmultifit.la multimin/libgslmultimin.la multiroots/libgslmultiroots.la ntuple/libgslntuple.la ode-initval/libgslodeiv.la permutation/libgslpermutation.la combination/libgslcombination.la poly/libgslpoly.la qrng/libgslqrng.la randist/libgslrandist.la rng/libgslrng.la roots/libgslroots.la siman/libgslsiman.la sort/libgslsort.la specfunc/libgslspecfunc.la statistics/libgslstatistics.la sum/libgslsum.la sys/libgslsys.la test/libgsltest.la utils/libutils.la vector/libgslvector.la pkginclude_HEADERS = gsl_math.h gsl_pow_int.h gsl_nan.h gsl_machine.h gsl_mode.h gsl_precision.h gsl_types.h gsl_version.h --- 3,9 ---- # AUTOMAKE_OPTIONS = readme-alpha ! SUBDIRS = gsl utils sys test err const complex cheb block vector matrix permutation combination sort ieee-utils cblas blas linalg eigen specfunc dht qrng rng randist fft poly fit multifit statistics siman sum integration interpolation histogram ode-initval roots multiroots min multimin monte ntuple diff cdf doc ! SUBLIBS = block/libgslblock.la blas/libgslblas.la complex/libgslcomplex.la cheb/libgslcheb.la dht/libgsldht.la diff/libgsldiff.la eigen/libgsleigen.la err/libgslerr.la fft/libgslfft.la fit/libgslfit.la histogram/libgslhistogram.la ieee-utils/libgslieeeutils.la integration/libgslintegration.la interpolation/libgslinterpolation.la linalg/libgsllinalg.la matrix/libgslmatrix.la min/libgslmin.la monte/libgslmonte.la multifit/libgslmultifit.la multimin/libgslmultimin.la multiroots/libgslmultiroots.la ntuple/libgslntuple.la ode-initval/libgslodeiv.la permutation/libgslpermutation.la combination/libgslcombination.la poly/libgslpoly.la qrng/libgslqrng.la randist/libgslrandist.la rng/libgslrng.la roots/libgslroots.la siman/libgslsiman.la sort/libgslsort.la specfunc/libgslspecfunc.la statistics/libgslstatistics.la sum/libgslsum.la sys/libgslsys.la test/libgsltest.la utils/libutils.la vector/libgslvector.la cdf/libgslcdf.la pkginclude_HEADERS = gsl_math.h gsl_pow_int.h gsl_nan.h gsl_machine.h gsl_mode.h gsl_precision.h gsl_types.h gsl_version.h *************** *** 14,18 **** pkgconfig_DATA= gsl.pc ! EXTRA_DIST = autogen.sh gsl-config.in gsl.pc.in configure.in THANKS BUGS gsl.spec.in gsl.m4 test_gsl_histogram.sh lib_LTLIBRARIES = libgsl.la --- 14,18 ---- pkgconfig_DATA= gsl.pc ! EXTRA_DIST = autogen.sh gsl-config.in gsl.pc.in configure.ac THANKS BUGS gsl.spec.in gsl.m4 test_gsl_histogram.sh lib_LTLIBRARIES = libgsl.la diff -x.info* -rc2P gsl-1.3/Makefile.in gsl-1.4/Makefile.in *** gsl-1.3/Makefile.in Wed Dec 18 22:36:20 2002 --- gsl-1.4/Makefile.in Thu Aug 14 12:28:36 2003 *************** *** 1,5 **** ! # Makefile.in generated automatically by automake 1.4-p5 from Makefile.am ! # Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, --- 1,7 ---- ! # Makefile.in generated by automake 1.7.5 from Makefile.am. ! # @configure_input@ ! # Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 ! # Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, *************** *** 11,57 **** # PARTICULAR PURPOSE. ! # AUTOMAKE_OPTIONS = readme-alpha ! ! SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ - prefix = @prefix@ - exec_prefix = @exec_prefix@ - - bindir = @bindir@ - sbindir = @sbindir@ - libexecdir = @libexecdir@ - datadir = @datadir@ - sysconfdir = @sysconfdir@ - sharedstatedir = @sharedstatedir@ - localstatedir = @localstatedir@ - libdir = @libdir@ - infodir = @infodir@ - mandir = @mandir@ - includedir = @includedir@ - oldincludedir = /usr/include - - DESTDIR = - pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ - top_builddir = . ! ACLOCAL = @ACLOCAL@ ! AUTOCONF = @AUTOCONF@ ! AUTOMAKE = @AUTOMAKE@ ! AUTOHEADER = @AUTOHEADER@ ! INSTALL = @INSTALL@ ! INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) ! INSTALL_DATA = @INSTALL_DATA@ ! INSTALL_SCRIPT = @INSTALL_SCRIPT@ ! transform = @program_transform_name@ ! NORMAL_INSTALL = : PRE_INSTALL = : --- 13,35 ---- # PARTICULAR PURPOSE. ! @SET_MAKE@ ! # AUTOMAKE_OPTIONS = readme-alpha srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = . ! am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ ! install_sh_DATA = $(install_sh) -c -m 644 ! install_sh_PROGRAM = $(install_sh) -c ! install_sh_SCRIPT = $(install_sh) -c ! INSTALL_HEADER = $(INSTALL_DATA) ! transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : *************** *** 60,71 **** PRE_UNINSTALL = : POST_UNINSTALL = : - host_alias = @host_alias@ host_triplet = @host@ AR = @AR@ ! AS = @AS@ CC = @CC@ CPP = @CPP@ ! DLLTOOL = @DLLTOOL@ ECHO = @ECHO@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ --- 38,60 ---- PRE_UNINSTALL = : POST_UNINSTALL = : host_triplet = @host@ + ACLOCAL = @ACLOCAL@ + AMTAR = @AMTAR@ AR = @AR@ ! AUTOCONF = @AUTOCONF@ ! AUTOHEADER = @AUTOHEADER@ ! AUTOMAKE = @AUTOMAKE@ ! AWK = @AWK@ CC = @CC@ + CFLAGS = @CFLAGS@ CPP = @CPP@ ! CPPFLAGS = @CPPFLAGS@ ! CYGPATH_W = @CYGPATH_W@ ! DEFS = @DEFS@ ECHO = @ECHO@ + ECHO_C = @ECHO_C@ + ECHO_N = @ECHO_N@ + ECHO_T = @ECHO_T@ + EGREP = @EGREP@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ *************** *** 73,93 **** GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ - OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ STRIP = @STRIP@ VERSION = @VERSION@ ! SUBDIRS = gsl utils sys test err const complex cheb block vector matrix permutation combination sort ieee-utils cblas blas linalg eigen specfunc dht qrng rng randist fft poly fit multifit statistics siman sum integration interpolation histogram ode-initval roots multiroots min multimin monte ntuple diff doc ! SUBLIBS = block/libgslblock.la blas/libgslblas.la complex/libgslcomplex.la cheb/libgslcheb.la dht/libgsldht.la diff/libgsldiff.la eigen/libgsleigen.la err/libgslerr.la fft/libgslfft.la fit/libgslfit.la histogram/libgslhistogram.la ieee-utils/libgslieeeutils.la integration/libgslintegration.la interpolation/libgslinterpolation.la linalg/libgsllinalg.la matrix/libgslmatrix.la min/libgslmin.la monte/libgslmonte.la multifit/libgslmultifit.la multimin/libgslmultimin.la multiroots/libgslmultiroots.la ntuple/libgslntuple.la ode-initval/libgslodeiv.la permutation/libgslpermutation.la combination/libgslcombination.la poly/libgslpoly.la qrng/libgslqrng.la randist/libgslrandist.la rng/libgslrng.la roots/libgslroots.la siman/libgslsiman.la sort/libgslsort.la specfunc/libgslspecfunc.la statistics/libgslstatistics.la sum/libgslsum.la sys/libgslsys.la test/libgsltest.la utils/libutils.la vector/libgslvector.la pkginclude_HEADERS = gsl_math.h gsl_pow_int.h gsl_nan.h gsl_machine.h gsl_mode.h gsl_precision.h gsl_types.h gsl_version.h --- 62,150 ---- GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ + HAVE_AIX_IEEE_INTERFACE = @HAVE_AIX_IEEE_INTERFACE@ + HAVE_DARWIN_IEEE_INTERFACE = @HAVE_DARWIN_IEEE_INTERFACE@ + HAVE_EXTENDED_PRECISION_REGISTERS = @HAVE_EXTENDED_PRECISION_REGISTERS@ + HAVE_FREEBSD_IEEE_INTERFACE = @HAVE_FREEBSD_IEEE_INTERFACE@ + HAVE_GNUM68K_IEEE_INTERFACE = @HAVE_GNUM68K_IEEE_INTERFACE@ + HAVE_GNUPPC_IEEE_INTERFACE = @HAVE_GNUPPC_IEEE_INTERFACE@ + HAVE_GNUSPARC_IEEE_INTERFACE = @HAVE_GNUSPARC_IEEE_INTERFACE@ + HAVE_GNUX86_IEEE_INTERFACE = @HAVE_GNUX86_IEEE_INTERFACE@ + HAVE_HPUX11_IEEE_INTERFACE = @HAVE_HPUX11_IEEE_INTERFACE@ + HAVE_HPUX_IEEE_INTERFACE = @HAVE_HPUX_IEEE_INTERFACE@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ + HAVE_IRIX_IEEE_INTERFACE = @HAVE_IRIX_IEEE_INTERFACE@ + HAVE_NETBSD_IEEE_INTERFACE = @HAVE_NETBSD_IEEE_INTERFACE@ + HAVE_OPENBSD_IEEE_INTERFACE = @HAVE_OPENBSD_IEEE_INTERFACE@ + HAVE_OS2EMX_IEEE_INTERFACE = @HAVE_OS2EMX_IEEE_INTERFACE@ + HAVE_PRINTF_LONGDOUBLE = @HAVE_PRINTF_LONGDOUBLE@ + HAVE_SOLARIS_IEEE_INTERFACE = @HAVE_SOLARIS_IEEE_INTERFACE@ + HAVE_SUNOS4_IEEE_INTERFACE = @HAVE_SUNOS4_IEEE_INTERFACE@ + HAVE_TRU64_IEEE_INTERFACE = @HAVE_TRU64_IEEE_INTERFACE@ + INSTALL_DATA = @INSTALL_DATA@ + INSTALL_PROGRAM = @INSTALL_PROGRAM@ + INSTALL_SCRIPT = @INSTALL_SCRIPT@ + INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ + LDFLAGS = @LDFLAGS@ + LIBOBJS = @LIBOBJS@ + LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ + LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ + MAINTAINER_MODE_FALSE = @MAINTAINER_MODE_FALSE@ + MAINTAINER_MODE_TRUE = @MAINTAINER_MODE_TRUE@ MAKEINFO = @MAKEINFO@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ + PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ + PACKAGE_NAME = @PACKAGE_NAME@ + PACKAGE_STRING = @PACKAGE_STRING@ + PACKAGE_TARNAME = @PACKAGE_TARNAME@ + PACKAGE_VERSION = @PACKAGE_VERSION@ + PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ + RELEASED = @RELEASED@ + SET_MAKE = @SET_MAKE@ + SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ + ac_ct_AR = @ac_ct_AR@ + ac_ct_CC = @ac_ct_CC@ + ac_ct_RANLIB = @ac_ct_RANLIB@ + ac_ct_STRIP = @ac_ct_STRIP@ + am__leading_dot = @am__leading_dot@ + bindir = @bindir@ + build = @build@ + build_alias = @build_alias@ + build_cpu = @build_cpu@ + build_os = @build_os@ + build_vendor = @build_vendor@ + datadir = @datadir@ + exec_prefix = @exec_prefix@ + host = @host@ + host_alias = @host_alias@ + host_cpu = @host_cpu@ + host_os = @host_os@ + host_vendor = @host_vendor@ + includedir = @includedir@ + infodir = @infodir@ + install_sh = @install_sh@ + libdir = @libdir@ + libexecdir = @libexecdir@ + localstatedir = @localstatedir@ + mandir = @mandir@ + oldincludedir = @oldincludedir@ + prefix = @prefix@ + program_transform_name = @program_transform_name@ + sbindir = @sbindir@ + sharedstatedir = @sharedstatedir@ + sysconfdir = @sysconfdir@ + target_alias = @target_alias@ ! SUBDIRS = gsl utils sys test err const complex cheb block vector matrix permutation combination sort ieee-utils cblas blas linalg eigen specfunc dht qrng rng randist fft poly fit multifit statistics siman sum integration interpolation histogram ode-initval roots multiroots min multimin monte ntuple diff cdf doc ! SUBLIBS = block/libgslblock.la blas/libgslblas.la complex/libgslcomplex.la cheb/libgslcheb.la dht/libgsldht.la diff/libgsldiff.la eigen/libgsleigen.la err/libgslerr.la fft/libgslfft.la fit/libgslfit.la histogram/libgslhistogram.la ieee-utils/libgslieeeutils.la integration/libgslintegration.la interpolation/libgslinterpolation.la linalg/libgsllinalg.la matrix/libgslmatrix.la min/libgslmin.la monte/libgslmonte.la multifit/libgslmultifit.la multimin/libgslmultimin.la multiroots/libgslmultiroots.la ntuple/libgslntuple.la ode-initval/libgslodeiv.la permutation/libgslpermutation.la combination/libgslcombination.la poly/libgslpoly.la qrng/libgslqrng.la randist/libgslrandist.la rng/libgslrng.la roots/libgslroots.la siman/libgslsiman.la sort/libgslsort.la specfunc/libgslspecfunc.la statistics/libgslstatistics.la sum/libgslsum.la sys/libgslsys.la test/libgsltest.la utils/libutils.la vector/libgslvector.la cdf/libgslcdf.la pkginclude_HEADERS = gsl_math.h gsl_pow_int.h gsl_nan.h gsl_machine.h gsl_mode.h gsl_precision.h gsl_types.h gsl_version.h *************** *** 98,102 **** pkgconfig_DATA = gsl.pc ! EXTRA_DIST = autogen.sh gsl-config.in gsl.pc.in configure.in THANKS BUGS gsl.spec.in gsl.m4 test_gsl_histogram.sh lib_LTLIBRARIES = libgsl.la --- 155,159 ---- pkgconfig_DATA = gsl.pc ! EXTRA_DIST = autogen.sh gsl-config.in gsl.pc.in configure.ac THANKS BUGS gsl.spec.in gsl.m4 test_gsl_histogram.sh lib_LTLIBRARIES = libgsl.la *************** *** 119,246 **** check_SCRIPTS = test_gsl_histogram.sh TESTS = test_gsl_histogram.sh ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = config.h ! CONFIG_CLEAN_FILES = gsl-config gsl.pc gsl_version.h gsl.spec ! LTLIBRARIES = $(lib_LTLIBRARIES) ! ! ! DEFS = @DEFS@ -I. -I$(srcdir) -I. ! CPPFLAGS = @CPPFLAGS@ ! LDFLAGS = @LDFLAGS@ ! LIBS = @LIBS@ ! libgsl_la_DEPENDENCIES = block/libgslblock.la blas/libgslblas.la \ ! complex/libgslcomplex.la cheb/libgslcheb.la dht/libgsldht.la \ ! diff/libgsldiff.la eigen/libgsleigen.la err/libgslerr.la \ ! fft/libgslfft.la fit/libgslfit.la histogram/libgslhistogram.la \ ! ieee-utils/libgslieeeutils.la integration/libgslintegration.la \ ! interpolation/libgslinterpolation.la linalg/libgsllinalg.la \ ! matrix/libgslmatrix.la min/libgslmin.la monte/libgslmonte.la \ ! multifit/libgslmultifit.la multimin/libgslmultimin.la \ ! multiroots/libgslmultiroots.la ntuple/libgslntuple.la \ ! ode-initval/libgslodeiv.la permutation/libgslpermutation.la \ ! combination/libgslcombination.la poly/libgslpoly.la qrng/libgslqrng.la \ ! randist/libgslrandist.la rng/libgslrng.la roots/libgslroots.la \ ! siman/libgslsiman.la sort/libgslsort.la specfunc/libgslspecfunc.la \ ! statistics/libgslstatistics.la sum/libgslsum.la sys/libgslsys.la \ ! test/libgsltest.la utils/libutils.la vector/libgslvector.la ! libgsl_la_OBJECTS = version.lo ! bin_PROGRAMS = gsl-randist$(EXEEXT) gsl-histogram$(EXEEXT) ! PROGRAMS = $(bin_PROGRAMS) ! ! gsl_randist_OBJECTS = gsl-randist.$(OBJEXT) ! gsl_randist_DEPENDENCIES = libgsl.la cblas/libgslcblas.la ! gsl_randist_LDFLAGS = ! gsl_histogram_OBJECTS = gsl-histogram.$(OBJEXT) ! gsl_histogram_DEPENDENCIES = libgsl.la cblas/libgslcblas.la ! gsl_histogram_LDFLAGS = ! SCRIPTS = $(bin_SCRIPTS) ! CFLAGS = @CFLAGS@ ! COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ ! DATA = $(m4data_DATA) $(pkgconfig_DATA) ! ! HEADERS = $(noinst_HEADERS) $(pkginclude_HEADERS) ! ! DIST_COMMON = README ./stamp-h.in AUTHORS COPYING ChangeLog INSTALL \ ! Makefile.am Makefile.in NEWS THANKS TODO acconfig.h aclocal.m4 \ ! config.guess config.h.in config.sub configure configure.in \ ! gsl-config.in gsl.pc.in gsl.spec.in gsl_version.h.in install-sh \ ! ltmain.sh mdate-sh missing mkinstalldirs ! ! ! DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) ! TAR = tar ! GZIP_ENV = --best ! SOURCES = $(libgsl_la_SOURCES) $(gsl_randist_SOURCES) $(gsl_histogram_SOURCES) ! OBJECTS = $(libgsl_la_OBJECTS) $(gsl_randist_OBJECTS) $(gsl_histogram_OBJECTS) - all: all-redirect .SUFFIXES: ! .SUFFIXES: .S .c .lo .o .obj .s ! $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) ! cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps Makefile ! ! Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status ! cd $(top_builddir) \ ! && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status ! $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ configure.in ! cd $(srcdir) && $(ACLOCAL) ! config.status: $(srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck ! $(srcdir)/configure: @MAINTAINER_MODE_TRUE@$(srcdir)/configure.in $(ACLOCAL_M4) $(CONFIGURE_DEPENDENCIES) cd $(srcdir) && $(AUTOCONF) ! config.h: stamp-h ! @if test ! -f $@; then \ ! rm -f stamp-h; \ ! $(MAKE) stamp-h; \ ! else :; fi ! stamp-h: $(srcdir)/config.h.in $(top_builddir)/config.status ! cd $(top_builddir) \ ! && CONFIG_FILES= CONFIG_HEADERS=config.h \ ! $(SHELL) ./config.status ! @echo timestamp > stamp-h 2> /dev/null ! $(srcdir)/config.h.in: @MAINTAINER_MODE_TRUE@$(srcdir)/stamp-h.in @if test ! -f $@; then \ ! rm -f $(srcdir)/stamp-h.in; \ ! $(MAKE) $(srcdir)/stamp-h.in; \ else :; fi - $(srcdir)/stamp-h.in: $(top_srcdir)/configure.in $(ACLOCAL_M4) acconfig.h - cd $(top_srcdir) && $(AUTOHEADER) - @echo timestamp > $(srcdir)/stamp-h.in 2> /dev/null ! mostlyclean-hdr: ! clean-hdr: distclean-hdr: ! -rm -f config.h ! ! maintainer-clean-hdr: gsl-config: $(top_builddir)/config.status gsl-config.in ! cd $(top_builddir) && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status gsl.pc: $(top_builddir)/config.status gsl.pc.in ! cd $(top_builddir) && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status gsl_version.h: $(top_builddir)/config.status gsl_version.h.in ! cd $(top_builddir) && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status gsl.spec: $(top_builddir)/config.status gsl.spec.in ! cd $(top_builddir) && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status ! ! mostlyclean-libLTLIBRARIES: ! ! clean-libLTLIBRARIES: ! -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) ! ! distclean-libLTLIBRARIES: ! ! maintainer-clean-libLTLIBRARIES: ! install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) --- 176,296 ---- check_SCRIPTS = test_gsl_histogram.sh TESTS = test_gsl_histogram.sh + subdir = . ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = config.h ! CONFIG_CLEAN_FILES = gsl-config gsl.pc gsl_version.h gsl.spec ! LTLIBRARIES = $(lib_LTLIBRARIES) ! libgsl_la_DEPENDENCIES = block/libgslblock.la blas/libgslblas.la \ ! complex/libgslcomplex.la cheb/libgslcheb.la dht/libgsldht.la \ ! diff/libgsldiff.la eigen/libgsleigen.la err/libgslerr.la \ ! fft/libgslfft.la fit/libgslfit.la histogram/libgslhistogram.la \ ! ieee-utils/libgslieeeutils.la integration/libgslintegration.la \ ! interpolation/libgslinterpolation.la linalg/libgsllinalg.la \ ! matrix/libgslmatrix.la min/libgslmin.la monte/libgslmonte.la \ ! multifit/libgslmultifit.la multimin/libgslmultimin.la \ ! multiroots/libgslmultiroots.la ntuple/libgslntuple.la \ ! ode-initval/libgslodeiv.la permutation/libgslpermutation.la \ ! combination/libgslcombination.la poly/libgslpoly.la \ ! qrng/libgslqrng.la randist/libgslrandist.la rng/libgslrng.la \ ! roots/libgslroots.la siman/libgslsiman.la sort/libgslsort.la \ ! specfunc/libgslspecfunc.la statistics/libgslstatistics.la \ ! sum/libgslsum.la sys/libgslsys.la test/libgsltest.la \ ! utils/libutils.la vector/libgslvector.la cdf/libgslcdf.la ! am_libgsl_la_OBJECTS = version.lo ! libgsl_la_OBJECTS = $(am_libgsl_la_OBJECTS) ! bin_PROGRAMS = gsl-randist$(EXEEXT) gsl-histogram$(EXEEXT) ! PROGRAMS = $(bin_PROGRAMS) ! ! am_gsl_histogram_OBJECTS = gsl-histogram.$(OBJEXT) ! gsl_histogram_OBJECTS = $(am_gsl_histogram_OBJECTS) ! gsl_histogram_DEPENDENCIES = libgsl.la cblas/libgslcblas.la ! gsl_histogram_LDFLAGS = ! am_gsl_randist_OBJECTS = gsl-randist.$(OBJEXT) ! gsl_randist_OBJECTS = $(am_gsl_randist_OBJECTS) ! gsl_randist_DEPENDENCIES = libgsl.la cblas/libgslcblas.la ! gsl_randist_LDFLAGS = ! SCRIPTS = $(bin_SCRIPTS) ! ! ! DEFAULT_INCLUDES = -I. -I$(srcdir) -I. ! depcomp = ! am__depfiles_maybe = ! COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ ! $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) \ ! $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ ! $(AM_LDFLAGS) $(LDFLAGS) -o $@ ! DIST_SOURCES = $(libgsl_la_SOURCES) $(gsl_histogram_SOURCES) \ ! $(gsl_randist_SOURCES) ! DATA = $(m4data_DATA) $(pkgconfig_DATA) ! ! HEADERS = $(noinst_HEADERS) $(pkginclude_HEADERS) ! ! ! RECURSIVE_TARGETS = info-recursive dvi-recursive pdf-recursive \ ! ps-recursive install-info-recursive uninstall-info-recursive \ ! all-recursive install-data-recursive install-exec-recursive \ ! installdirs-recursive install-recursive uninstall-recursive \ ! check-recursive installcheck-recursive ! DIST_COMMON = README $(noinst_HEADERS) $(pkginclude_HEADERS) AUTHORS \ ! COPYING ChangeLog INSTALL Makefile.am Makefile.in NEWS THANKS \ ! TODO acconfig.h aclocal.m4 config.guess config.h.in config.sub \ ! configure configure.ac depcomp gsl-config.in gsl.pc.in \ ! gsl.spec.in gsl_version.h.in install-sh ltmain.sh mdate-sh \ ! missing mkinstalldirs ! DIST_SUBDIRS = $(SUBDIRS) ! SOURCES = $(libgsl_la_SOURCES) $(gsl_histogram_SOURCES) $(gsl_randist_SOURCES) ! all: config.h ! $(MAKE) $(AM_MAKEFLAGS) all-recursive .SUFFIXES: ! .SUFFIXES: .c .lo .o .obj ! am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ ! configure.lineno ! $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.ac $(ACLOCAL_M4) ! cd $(top_srcdir) && \ ! $(AUTOMAKE) --gnu Makefile ! Makefile: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.in $(top_builddir)/config.status ! cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe) ! $(top_builddir)/config.status: $(srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck ! $(srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(srcdir)/configure.ac $(ACLOCAL_M4) $(CONFIGURE_DEPENDENCIES) cd $(srcdir) && $(AUTOCONF) ! $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ configure.ac ! cd $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) ! ! config.h: stamp-h1 @if test ! -f $@; then \ ! rm -f stamp-h1; \ ! $(MAKE) stamp-h1; \ else :; fi ! stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status ! @rm -f stamp-h1 ! cd $(top_builddir) && $(SHELL) ./config.status config.h ! $(srcdir)/config.h.in: @MAINTAINER_MODE_TRUE@ $(top_srcdir)/configure.ac $(ACLOCAL_M4) $(top_srcdir)/acconfig.h ! cd $(top_srcdir) && $(AUTOHEADER) ! touch $(srcdir)/config.h.in distclean-hdr: ! -rm -f config.h stamp-h1 gsl-config: $(top_builddir)/config.status gsl-config.in ! cd $(top_builddir) && $(SHELL) ./config.status $@ gsl.pc: $(top_builddir)/config.status gsl.pc.in ! cd $(top_builddir) && $(SHELL) ./config.status $@ gsl_version.h: $(top_builddir)/config.status gsl_version.h.in ! cd $(top_builddir) && $(SHELL) ./config.status $@ gsl.spec: $(top_builddir)/config.status gsl.spec.in ! cd $(top_builddir) && $(SHELL) ./config.status $@ ! libLTLIBRARIES_INSTALL = $(INSTALL) install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) *************** *** 248,253 **** @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ ! echo "$(LIBTOOL) --mode=install $(INSTALL) $$p $(DESTDIR)$(libdir)/$$p"; \ ! $(LIBTOOL) --mode=install $(INSTALL) $$p $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done --- 298,304 ---- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(libdir)/$$f"; \ ! $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(libdir)/$$f; \ else :; fi; \ done *************** *** 255,325 **** uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) ! list='$(lib_LTLIBRARIES)'; for p in $$list; do \ ! $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p; \ done ! .c.o: ! $(COMPILE) -c $< ! ! # FIXME: We should only use cygpath when building on Windows, ! # and only if it is available. ! .c.obj: ! $(COMPILE) -c `cygpath -w $<` ! ! .s.o: ! $(COMPILE) -c $< ! ! .S.o: ! $(COMPILE) -c $< ! ! mostlyclean-compile: ! -rm -f *.o core *.core ! -rm -f *.$(OBJEXT) ! ! clean-compile: ! ! distclean-compile: ! -rm -f *.tab.c ! ! maintainer-clean-compile: ! ! .c.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! ! .s.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! ! .S.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! ! mostlyclean-libtool: ! -rm -f *.lo ! ! clean-libtool: ! -rm -rf .libs _libs ! ! distclean-libtool: ! ! maintainer-clean-libtool: ! ! libgsl.la: $(libgsl_la_OBJECTS) $(libgsl_la_DEPENDENCIES) $(LINK) -rpath $(libdir) $(libgsl_la_LDFLAGS) $(libgsl_la_OBJECTS) $(libgsl_la_LIBADD) $(LIBS) ! ! mostlyclean-binPROGRAMS: ! ! clean-binPROGRAMS: ! -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) ! ! distclean-binPROGRAMS: ! ! maintainer-clean-binPROGRAMS: ! install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ ! if test -f $$p; then \ ! echo " $(LIBTOOL) --mode=install $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ ! $(LIBTOOL) --mode=install $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ else :; fi; \ done --- 306,337 ---- uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) ! @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ ! p="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p"; \ ! $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p; \ done ! clean-libLTLIBRARIES: ! -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) ! @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ ! dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ ! test "$$dir" = "$$p" && dir=.; \ ! echo "rm -f \"$${dir}/so_locations\""; \ ! rm -f "$${dir}/so_locations"; \ ! done ! libgsl.la: $(libgsl_la_OBJECTS) $(libgsl_la_DEPENDENCIES) $(LINK) -rpath $(libdir) $(libgsl_la_LDFLAGS) $(libgsl_la_OBJECTS) $(libgsl_la_LIBADD) $(LIBS) ! binPROGRAMS_INSTALL = $(INSTALL_PROGRAM) install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ ! p1=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ ! if test -f $$p \ ! || test -f $$p1 \ ! ; then \ ! f=`echo "$$p1" | sed 's,^.*/,,;$(transform);s/$$/$(EXEEXT)/'`; \ ! echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) --mode=install $(binPROGRAMS_INSTALL) $$p $(DESTDIR)$(bindir)/$$f"; \ ! $(INSTALL_PROGRAM_ENV) $(LIBTOOL) --mode=install $(binPROGRAMS_INSTALL) $$p $(DESTDIR)$(bindir)/$$f || exit 1; \ else :; fi; \ done *************** *** 327,412 **** uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) ! list='$(bin_PROGRAMS)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ done ! gsl-randist$(EXEEXT): $(gsl_randist_OBJECTS) $(gsl_randist_DEPENDENCIES) ! @rm -f gsl-randist$(EXEEXT) ! $(LINK) $(gsl_randist_LDFLAGS) $(gsl_randist_OBJECTS) $(gsl_randist_LDADD) $(LIBS) ! ! gsl-histogram$(EXEEXT): $(gsl_histogram_OBJECTS) $(gsl_histogram_DEPENDENCIES) @rm -f gsl-histogram$(EXEEXT) $(LINK) $(gsl_histogram_LDFLAGS) $(gsl_histogram_OBJECTS) $(gsl_histogram_LDADD) $(LIBS) ! install-binSCRIPTS: $(bin_SCRIPTS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_SCRIPTS)'; for p in $$list; do \ ! if test -f $$p; then \ ! echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \ ! $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \ ! else if test -f $(srcdir)/$$p; then \ ! echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \ ! $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \ ! else :; fi; fi; \ done uninstall-binSCRIPTS: @$(NORMAL_UNINSTALL) ! list='$(bin_SCRIPTS)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \ done install-m4dataDATA: $(m4data_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(m4datadir) @list='$(m4data_DATA)'; for p in $$list; do \ ! if test -f $(srcdir)/$$p; then \ ! echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(m4datadir)/$$p"; \ ! $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(m4datadir)/$$p; \ ! else if test -f $$p; then \ ! echo " $(INSTALL_DATA) $$p $(DESTDIR)$(m4datadir)/$$p"; \ ! $(INSTALL_DATA) $$p $(DESTDIR)$(m4datadir)/$$p; \ ! fi; fi; \ done uninstall-m4dataDATA: @$(NORMAL_UNINSTALL) ! list='$(m4data_DATA)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(m4datadir)/$$p; \ done ! install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgconfigdir) @list='$(pkgconfig_DATA)'; for p in $$list; do \ ! if test -f $(srcdir)/$$p; then \ ! echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgconfigdir)/$$p"; \ ! $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgconfigdir)/$$p; \ ! else if test -f $$p; then \ ! echo " $(INSTALL_DATA) $$p $(DESTDIR)$(pkgconfigdir)/$$p"; \ ! $(INSTALL_DATA) $$p $(DESTDIR)$(pkgconfigdir)/$$p; \ ! fi; fi; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) ! list='$(pkgconfig_DATA)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(pkgconfigdir)/$$p; \ done ! install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ ! echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p"; \ ! $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$p; \ done --- 339,458 ---- uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) ! @list='$(bin_PROGRAMS)'; for p in $$list; do \ ! f=`echo "$$p" | sed 's,^.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/'`; \ ! echo " rm -f $(DESTDIR)$(bindir)/$$f"; \ ! rm -f $(DESTDIR)$(bindir)/$$f; \ done ! clean-binPROGRAMS: ! @list='$(bin_PROGRAMS)'; for p in $$list; do \ ! f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ ! echo " rm -f $$p $$f"; \ ! rm -f $$p $$f ; \ ! done ! gsl-histogram$(EXEEXT): $(gsl_histogram_OBJECTS) $(gsl_histogram_DEPENDENCIES) @rm -f gsl-histogram$(EXEEXT) $(LINK) $(gsl_histogram_LDFLAGS) $(gsl_histogram_OBJECTS) $(gsl_histogram_LDADD) $(LIBS) ! gsl-randist$(EXEEXT): $(gsl_randist_OBJECTS) $(gsl_randist_DEPENDENCIES) ! @rm -f gsl-randist$(EXEEXT) ! $(LINK) $(gsl_randist_LDFLAGS) $(gsl_randist_OBJECTS) $(gsl_randist_LDADD) $(LIBS) ! binSCRIPT_INSTALL = $(INSTALL_SCRIPT) install-binSCRIPTS: $(bin_SCRIPTS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_SCRIPTS)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! if test -f $$d$$p; then \ ! f=`echo "$$p" | sed 's|^.*/||;$(transform)'`; \ ! echo " $(binSCRIPT_INSTALL) $$d$$p $(DESTDIR)$(bindir)/$$f"; \ ! $(binSCRIPT_INSTALL) $$d$$p $(DESTDIR)$(bindir)/$$f; \ ! else :; fi; \ done uninstall-binSCRIPTS: @$(NORMAL_UNINSTALL) ! @list='$(bin_SCRIPTS)'; for p in $$list; do \ ! f=`echo "$$p" | sed 's|^.*/||;$(transform)'`; \ ! echo " rm -f $(DESTDIR)$(bindir)/$$f"; \ ! rm -f $(DESTDIR)$(bindir)/$$f; \ done + mostlyclean-compile: + -rm -f *.$(OBJEXT) core *.core + + distclean-compile: + -rm -f *.tab.c + + .c.o: + $(COMPILE) -c `test -f '$<' || echo '$(srcdir)/'`$< + + .c.obj: + $(COMPILE) -c `if test -f '$<'; then $(CYGPATH_W) '$<'; else $(CYGPATH_W) '$(srcdir)/$<'; fi` + + .c.lo: + $(LTCOMPILE) -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$< + + mostlyclean-libtool: + -rm -f *.lo + + clean-libtool: + -rm -rf .libs _libs + + distclean-libtool: + -rm -f libtool + uninstall-info-am: + m4dataDATA_INSTALL = $(INSTALL_DATA) install-m4dataDATA: $(m4data_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(m4datadir) @list='$(m4data_DATA)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(m4dataDATA_INSTALL) $$d$$p $(DESTDIR)$(m4datadir)/$$f"; \ ! $(m4dataDATA_INSTALL) $$d$$p $(DESTDIR)$(m4datadir)/$$f; \ done uninstall-m4dataDATA: @$(NORMAL_UNINSTALL) ! @list='$(m4data_DATA)'; for p in $$list; do \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " rm -f $(DESTDIR)$(m4datadir)/$$f"; \ ! rm -f $(DESTDIR)$(m4datadir)/$$f; \ done ! pkgconfigDATA_INSTALL = $(INSTALL_DATA) install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgconfigdir) @list='$(pkgconfig_DATA)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(pkgconfigDATA_INSTALL) $$d$$p $(DESTDIR)$(pkgconfigdir)/$$f"; \ ! $(pkgconfigDATA_INSTALL) $$d$$p $(DESTDIR)$(pkgconfigdir)/$$f; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) ! @list='$(pkgconfig_DATA)'; for p in $$list; do \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " rm -f $(DESTDIR)$(pkgconfigdir)/$$f"; \ ! rm -f $(DESTDIR)$(pkgconfigdir)/$$f; \ done ! pkgincludeHEADERS_INSTALL = $(INSTALL_HEADER) install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f"; \ ! $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " rm -f $(DESTDIR)$(pkgincludedir)/$$f"; \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$f; \ done *************** *** 417,427 **** # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! ! @SET_MAKE@ ! ! all-recursive install-data-recursive install-exec-recursive \ ! installdirs-recursive install-recursive uninstall-recursive \ ! check-recursive installcheck-recursive info-recursive dvi-recursive: ! @set fnord $(MAKEFLAGS); amf=$$2; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ --- 463,468 ---- # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! $(RECURSIVE_TARGETS): ! @set fnord $$MAKEFLAGS; amf=$$2; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ *************** *** 443,453 **** mostlyclean-recursive clean-recursive distclean-recursive \ maintainer-clean-recursive: ! @set fnord $(MAKEFLAGS); amf=$$2; \ dot_seen=no; \ ! rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \ ! rev="$$subdir $$rev"; \ ! test "$$subdir" != "." || dot_seen=yes; \ done; \ ! test "$$dot_seen" = "no" && rev=". $$rev"; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ --- 484,499 ---- mostlyclean-recursive clean-recursive distclean-recursive \ maintainer-clean-recursive: ! @set fnord $$MAKEFLAGS; amf=$$2; \ dot_seen=no; \ ! case "$@" in \ ! distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ ! *) list='$(SUBDIRS)' ;; \ ! esac; \ ! rev=''; for subdir in $$list; do \ ! if test "$$subdir" = "."; then :; else \ ! rev="$$subdir $$rev"; \ ! fi; \ done; \ ! rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ *************** *** 465,627 **** test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! here=`pwd` && cd $(srcdir) \ ! && mkid -f$$here/ID $$unique $(LISP) ! TAGS: tags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ ! if test "$$subdir" = .; then :; else \ ! test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \ ! fi; \ done; \ ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)config.h.in$$unique$(LISP)$$tags" \ ! || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags config.h.in $$unique $(LISP) -o $$here/TAGS) ! ! mostlyclean-tags: ! ! clean-tags: distclean-tags: ! -rm -f TAGS ID ! maintainer-clean-tags: distdir = $(PACKAGE)-$(VERSION) - top_distdir = $(distdir) ! # This target untars the dist file and tries a VPATH configuration. Then ! # it guarantees that the distribution is self-contained by making another ! # tarfile. ! distcheck: dist ! -rm -rf $(distdir) ! GZIP=$(GZIP_ENV) $(TAR) zxf $(distdir).tar.gz ! mkdir $(distdir)/=build ! mkdir $(distdir)/=inst ! dc_install_base=`cd $(distdir)/=inst && pwd`; \ ! cd $(distdir)/=build \ ! && ../configure --srcdir=.. --prefix=$$dc_install_base \ ! && $(MAKE) $(AM_MAKEFLAGS) \ ! && $(MAKE) $(AM_MAKEFLAGS) dvi \ ! && $(MAKE) $(AM_MAKEFLAGS) check \ ! && $(MAKE) $(AM_MAKEFLAGS) install \ ! && $(MAKE) $(AM_MAKEFLAGS) installcheck \ ! && $(MAKE) $(AM_MAKEFLAGS) dist ! -rm -rf $(distdir) ! @banner="$(distdir).tar.gz is ready for distribution"; \ ! dashes=`echo "$$banner" | sed s/./=/g`; \ ! echo "$$dashes"; \ ! echo "$$banner"; \ ! echo "$$dashes" ! dist: distdir ! -chmod -R a+r $(distdir) ! GZIP=$(GZIP_ENV) $(TAR) chozf $(distdir).tar.gz $(distdir) ! -rm -rf $(distdir) ! dist-all: distdir ! -chmod -R a+r $(distdir) ! GZIP=$(GZIP_ENV) $(TAR) chozf $(distdir).tar.gz $(distdir) ! -rm -rf $(distdir) distdir: $(DISTFILES) ! -rm -rf $(distdir) mkdir $(distdir) ! -chmod 777 $(distdir) ! @for file in $(DISTFILES); do \ ! d=$(srcdir); \ if test -d $$d/$$file; then \ ! cp -pr $$d/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ ! || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ ! || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done ! for subdir in $(SUBDIRS); do \ if test "$$subdir" = .; then :; else \ test -d $(distdir)/$$subdir \ || mkdir $(distdir)/$$subdir \ || exit 1; \ ! chmod 777 $(distdir)/$$subdir; \ ! (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir=../$(distdir) distdir=../$(distdir)/$$subdir distdir) \ || exit 1; \ fi; \ done ! check-TESTS: $(TESTS) ! @failed=0; all=0; \ ! srcdir=$(srcdir); export srcdir; \ ! for tst in $(TESTS); do \ ! if test -f $$tst; then dir=.; \ ! else dir="$(srcdir)"; fi; \ ! if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \ ! all=`expr $$all + 1`; \ ! echo "PASS: $$tst"; \ ! elif test $$? -ne 77; then \ ! all=`expr $$all + 1`; \ ! failed=`expr $$failed + 1`; \ ! echo "FAIL: $$tst"; \ ! fi; \ ! done; \ ! if test "$$failed" -eq 0; then \ ! banner="All $$all tests passed"; \ ! else \ ! banner="$$failed of $$all tests failed"; \ ! fi; \ ! dashes=`echo "$$banner" | sed s/./=/g`; \ ! echo "$$dashes"; \ ! echo "$$banner"; \ ! echo "$$dashes"; \ ! test "$$failed" -eq 0 ! info-am: ! info: info-recursive ! dvi-am: ! dvi: dvi-recursive check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-recursive ! installcheck-am: ! installcheck: installcheck-recursive ! all-recursive-am: config.h ! $(MAKE) $(AM_MAKEFLAGS) all-recursive ! install-exec-am: install-libLTLIBRARIES install-binPROGRAMS \ ! install-binSCRIPTS ! install-exec: install-exec-recursive ! install-data-am: install-m4dataDATA install-pkgconfigDATA \ ! install-pkgincludeHEADERS install-data: install-data-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am - install: install-recursive - uninstall-am: uninstall-libLTLIBRARIES uninstall-binPROGRAMS \ - uninstall-binSCRIPTS uninstall-m4dataDATA \ - uninstall-pkgconfigDATA uninstall-pkgincludeHEADERS - uninstall: uninstall-recursive - all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(SCRIPTS) $(DATA) \ - $(HEADERS) config.h - all-redirect: all-recursive-am - install-strip: - $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install - installdirs: installdirs-recursive - installdirs-am: - $(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(bindir) \ - $(DESTDIR)$(bindir) $(DESTDIR)$(m4datadir) \ - $(DESTDIR)$(pkgconfigdir) $(DESTDIR)$(pkgincludedir) - mostlyclean-generic: --- 511,808 ---- test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done + ctags-recursive: + list='$(SUBDIRS)'; for subdir in $$list; do \ + test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ + done + + ETAGS = etags + ETAGSFLAGS = + + CTAGS = ctags + CTAGSFLAGS = tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! mkid -fID $$unique ! TAGS: tags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ + if (etags --etags-include --version) >/dev/null 2>&1; then \ + include_option=--etags-include; \ + else \ + include_option=--include; \ + fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ ! if test "$$subdir" = .; then :; else \ ! test -f $$subdir/TAGS && \ ! tags="$$tags $$include_option=$$here/$$subdir/TAGS"; \ ! fi; \ done; \ ! list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$tags$$unique" \ ! || $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ ! $$tags $$unique ! ! ctags: CTAGS ! CTAGS: ctags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) ! tags=; \ ! here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ ! END { for (i in files) print i; }'`; \ ! test -z "$(CTAGS_ARGS)$$tags$$unique" \ ! || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ ! $$tags $$unique ! ! GTAGS: ! here=`$(am__cd) $(top_builddir) && pwd` \ ! && cd $(top_srcdir) \ ! && gtags -i $(GTAGS_ARGS) $$here distclean-tags: ! -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags ! check-TESTS: $(TESTS) ! @failed=0; all=0; xfail=0; xpass=0; skip=0; \ ! srcdir=$(srcdir); export srcdir; \ ! list='$(TESTS)'; \ ! if test -n "$$list"; then \ ! for tst in $$list; do \ ! if test -f ./$$tst; then dir=./; \ ! elif test -f $$tst; then dir=; \ ! else dir="$(srcdir)/"; fi; \ ! if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ ! all=`expr $$all + 1`; \ ! case " $(XFAIL_TESTS) " in \ ! *" $$tst "*) \ ! xpass=`expr $$xpass + 1`; \ ! failed=`expr $$failed + 1`; \ ! echo "XPASS: $$tst"; \ ! ;; \ ! *) \ ! echo "PASS: $$tst"; \ ! ;; \ ! esac; \ ! elif test $$? -ne 77; then \ ! all=`expr $$all + 1`; \ ! case " $(XFAIL_TESTS) " in \ ! *" $$tst "*) \ ! xfail=`expr $$xfail + 1`; \ ! echo "XFAIL: $$tst"; \ ! ;; \ ! *) \ ! failed=`expr $$failed + 1`; \ ! echo "FAIL: $$tst"; \ ! ;; \ ! esac; \ ! else \ ! skip=`expr $$skip + 1`; \ ! echo "SKIP: $$tst"; \ ! fi; \ ! done; \ ! if test "$$failed" -eq 0; then \ ! if test "$$xfail" -eq 0; then \ ! banner="All $$all tests passed"; \ ! else \ ! banner="All $$all tests behaved as expected ($$xfail expected failures)"; \ ! fi; \ ! else \ ! if test "$$xpass" -eq 0; then \ ! banner="$$failed of $$all tests failed"; \ ! else \ ! banner="$$failed of $$all tests did not behave as expected ($$xpass unexpected passes)"; \ ! fi; \ ! fi; \ ! dashes="$$banner"; \ ! skipped=""; \ ! if test "$$skip" -ne 0; then \ ! skipped="($$skip tests were not run)"; \ ! test `echo "$$skipped" | wc -c` -gt `echo "$$banner" | wc -c` && \ ! dashes="$$skipped"; \ ! fi; \ ! report=""; \ ! if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ ! report="Please report to $(PACKAGE_BUGREPORT)"; \ ! test `echo "$$report" | wc -c` -gt `echo "$$banner" | wc -c` && \ ! dashes="$$report"; \ ! fi; \ ! dashes=`echo "$$dashes" | sed s/./=/g`; \ ! echo "$$dashes"; \ ! echo "$$banner"; \ ! test -n "$$skipped" && echo "$$skipped"; \ ! test -n "$$report" && echo "$$report"; \ ! echo "$$dashes"; \ ! test "$$failed" -eq 0; \ ! else :; fi ! DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) + top_distdir = . distdir = $(PACKAGE)-$(VERSION) ! am__remove_distdir = \ ! { test ! -d $(distdir) \ ! || { find $(distdir) -type d ! -perm -200 -exec chmod u+w {} ';' \ ! && rm -fr $(distdir); }; } ! ! GZIP_ENV = --best ! distuninstallcheck_listfiles = find . -type f -print ! distcleancheck_listfiles = find . -type f -print ! distdir: $(DISTFILES) ! $(am__remove_distdir) mkdir $(distdir) ! $(mkinstalldirs) $(distdir)/. ! @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ ! topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ ! list='$(DISTFILES)'; for file in $$list; do \ ! case $$file in \ ! $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ ! $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ ! esac; \ ! if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ ! dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ ! if test "$$dir" != "$$file" && test "$$dir" != "."; then \ ! dir="/$$dir"; \ ! $(mkinstalldirs) "$(distdir)$$dir"; \ ! else \ ! dir=''; \ ! fi; \ if test -d $$d/$$file; then \ ! if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ ! cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ ! fi; \ ! cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ ! || cp -p $$d/$$file $(distdir)/$$file \ ! || exit 1; \ fi; \ done ! list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test -d $(distdir)/$$subdir \ || mkdir $(distdir)/$$subdir \ || exit 1; \ ! (cd $$subdir && \ ! $(MAKE) $(AM_MAKEFLAGS) \ ! top_distdir="$(top_distdir)" \ ! distdir=../$(distdir)/$$subdir \ ! distdir) \ || exit 1; \ fi; \ done + -find $(distdir) -type d ! -perm -777 -exec chmod a+rwx {} \; -o \ + ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \ + ! -type d ! -perm -400 -exec chmod a+r {} \; -o \ + ! -type d ! -perm -444 -exec $(SHELL) $(install_sh) -c -m a+r {} {} \; \ + || chmod -R a+r $(distdir) + dist-gzip: distdir + $(AMTAR) chof - $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz + $(am__remove_distdir) + + dist dist-all: distdir + $(AMTAR) chof - $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz + $(am__remove_distdir) ! # This target untars the dist file and tries a VPATH configuration. Then ! # it guarantees that the distribution is self-contained by making another ! # tarfile. ! distcheck: dist ! $(am__remove_distdir) ! GZIP=$(GZIP_ENV) gunzip -c $(distdir).tar.gz | $(AMTAR) xf - ! chmod -R a-w $(distdir); chmod a+w $(distdir) ! mkdir $(distdir)/_build ! mkdir $(distdir)/_inst ! chmod a-w $(distdir) ! dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ ! && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ ! && cd $(distdir)/_build \ ! && ../configure --srcdir=.. --prefix="$$dc_install_base" \ ! $(DISTCHECK_CONFIGURE_FLAGS) \ ! && $(MAKE) $(AM_MAKEFLAGS) \ ! && $(MAKE) $(AM_MAKEFLAGS) dvi \ ! && $(MAKE) $(AM_MAKEFLAGS) check \ ! && $(MAKE) $(AM_MAKEFLAGS) install \ ! && $(MAKE) $(AM_MAKEFLAGS) installcheck \ ! && $(MAKE) $(AM_MAKEFLAGS) uninstall \ ! && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \ ! distuninstallcheck \ ! && chmod -R a-w "$$dc_install_base" \ ! && ({ \ ! (cd ../.. && $(mkinstalldirs) "$$dc_destdir") \ ! && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \ ! && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \ ! && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \ ! distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \ ! } || { rm -rf "$$dc_destdir"; exit 1; }) \ ! && rm -rf "$$dc_destdir" \ ! && $(MAKE) $(AM_MAKEFLAGS) dist-gzip \ ! && rm -f $(distdir).tar.gz \ ! && $(MAKE) $(AM_MAKEFLAGS) distcleancheck ! $(am__remove_distdir) ! @echo "$(distdir).tar.gz is ready for distribution" | \ ! sed 'h;s/./=/g;p;x;p;x' ! distuninstallcheck: ! @cd $(distuninstallcheck_dir) \ ! && test `$(distuninstallcheck_listfiles) | wc -l` -le 1 \ ! || { echo "ERROR: files left after uninstall:" ; \ ! if test -n "$(DESTDIR)"; then \ ! echo " (check DESTDIR support)"; \ ! fi ; \ ! $(distuninstallcheck_listfiles) ; \ ! exit 1; } >&2 ! distcleancheck: distclean ! @if test '$(srcdir)' = . ; then \ ! echo "ERROR: distcleancheck can only run from a VPATH build" ; \ ! exit 1 ; \ ! fi ! @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \ ! || { echo "ERROR: files left in build directory after distclean:" ; \ ! $(distcleancheck_listfiles) ; \ ! exit 1; } >&2 check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-recursive ! all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(SCRIPTS) $(DATA) \ ! $(HEADERS) config.h ! install-binPROGRAMS: install-libLTLIBRARIES ! installdirs: installdirs-recursive ! installdirs-am: ! $(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(bindir) $(DESTDIR)$(bindir) $(DESTDIR)$(m4datadir) $(DESTDIR)$(pkgconfigdir) $(DESTDIR)$(pkgincludedir) ! install: install-recursive ! install-exec: install-exec-recursive install-data: install-data-recursive + uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + installcheck: installcheck-recursive + install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: *************** *** 630,692 **** distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: ! mostlyclean-am: mostlyclean-hdr mostlyclean-libLTLIBRARIES \ ! mostlyclean-compile mostlyclean-libtool \ ! mostlyclean-binPROGRAMS mostlyclean-tags \ ! mostlyclean-generic ! mostlyclean: mostlyclean-recursive ! clean-am: clean-hdr clean-libLTLIBRARIES clean-compile clean-libtool \ ! clean-binPROGRAMS clean-tags clean-generic \ ! mostlyclean-am ! clean: clean-recursive ! distclean-am: distclean-hdr distclean-libLTLIBRARIES distclean-compile \ ! distclean-libtool distclean-binPROGRAMS distclean-tags \ ! distclean-generic clean-am ! -rm -f libtool ! distclean: distclean-recursive ! -rm -f config.status ! maintainer-clean-am: maintainer-clean-hdr \ ! maintainer-clean-libLTLIBRARIES \ ! maintainer-clean-compile maintainer-clean-libtool \ ! maintainer-clean-binPROGRAMS maintainer-clean-tags \ ! maintainer-clean-generic distclean-am ! @echo "This command is intended for maintainers to use;" ! @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-recursive ! -rm -f config.status ! .PHONY: mostlyclean-hdr distclean-hdr clean-hdr maintainer-clean-hdr \ ! mostlyclean-libLTLIBRARIES distclean-libLTLIBRARIES \ ! clean-libLTLIBRARIES maintainer-clean-libLTLIBRARIES \ ! uninstall-libLTLIBRARIES install-libLTLIBRARIES mostlyclean-compile \ ! distclean-compile clean-compile maintainer-clean-compile \ ! mostlyclean-libtool distclean-libtool clean-libtool \ ! maintainer-clean-libtool mostlyclean-binPROGRAMS distclean-binPROGRAMS \ ! clean-binPROGRAMS maintainer-clean-binPROGRAMS uninstall-binPROGRAMS \ ! install-binPROGRAMS uninstall-binSCRIPTS install-binSCRIPTS \ ! uninstall-m4dataDATA install-m4dataDATA uninstall-pkgconfigDATA \ ! install-pkgconfigDATA uninstall-pkgincludeHEADERS \ ! install-pkgincludeHEADERS install-data-recursive \ ! uninstall-data-recursive install-exec-recursive \ ! uninstall-exec-recursive installdirs-recursive uninstalldirs-recursive \ ! all-recursive check-recursive installcheck-recursive info-recursive \ ! dvi-recursive mostlyclean-recursive distclean-recursive clean-recursive \ ! maintainer-clean-recursive tags tags-recursive mostlyclean-tags \ ! distclean-tags clean-tags maintainer-clean-tags distdir check-TESTS \ ! info-am info dvi-am dvi check check-am installcheck-am installcheck \ ! all-recursive-am install-exec-am install-exec install-data-am \ ! install-data install-am install uninstall-am uninstall all-redirect \ ! all-am all installdirs-am installdirs mostlyclean-generic \ ! distclean-generic clean-generic maintainer-clean-generic clean \ ! mostlyclean distclean maintainer-clean --- 811,896 ---- distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) maintainer-clean-generic: ! @echo "This command is intended for maintainers to use" ! @echo "it deletes files that may require special tools to rebuild." ! clean: clean-recursive ! clean-am: clean-binPROGRAMS clean-generic clean-libLTLIBRARIES \ ! clean-libtool mostlyclean-am ! distclean: distclean-recursive ! -rm -f $(am__CONFIG_DISTCLEAN_FILES) ! distclean-am: clean-am distclean-compile distclean-generic distclean-hdr \ ! distclean-libtool distclean-tags ! dvi: dvi-recursive ! dvi-am: ! info: info-recursive ! info-am: ! ! install-data-am: install-m4dataDATA install-pkgconfigDATA \ ! install-pkgincludeHEADERS ! ! install-exec-am: install-binPROGRAMS install-binSCRIPTS \ ! install-libLTLIBRARIES ! ! install-info: install-info-recursive ! ! install-man: ! ! installcheck-am: maintainer-clean: maintainer-clean-recursive ! -rm -f $(am__CONFIG_DISTCLEAN_FILES) ! -rm -rf autom4te.cache ! maintainer-clean-am: distclean-am maintainer-clean-generic ! ! mostlyclean: mostlyclean-recursive ! ! mostlyclean-am: mostlyclean-compile mostlyclean-generic \ ! mostlyclean-libtool ! pdf: pdf-recursive ! ! pdf-am: ! ! ps: ps-recursive ! ! ps-am: ! ! uninstall-am: uninstall-binPROGRAMS uninstall-binSCRIPTS \ ! uninstall-info-am uninstall-libLTLIBRARIES uninstall-m4dataDATA \ ! uninstall-pkgconfigDATA uninstall-pkgincludeHEADERS ! ! uninstall-info: uninstall-info-recursive ! ! .PHONY: $(RECURSIVE_TARGETS) CTAGS GTAGS all all-am check check-TESTS \ ! check-am clean clean-binPROGRAMS clean-generic \ ! clean-libLTLIBRARIES clean-libtool clean-recursive ctags \ ! ctags-recursive dist dist-all dist-gzip distcheck distclean \ ! distclean-compile distclean-generic distclean-hdr \ ! distclean-libtool distclean-recursive distclean-tags \ ! distcleancheck distdir distuninstallcheck dvi dvi-am \ ! dvi-recursive info info-am info-recursive install install-am \ ! install-binPROGRAMS install-binSCRIPTS install-data \ ! install-data-am install-data-recursive install-exec \ ! install-exec-am install-exec-recursive install-info \ ! install-info-am install-info-recursive install-libLTLIBRARIES \ ! install-m4dataDATA install-man install-pkgconfigDATA \ ! install-pkgincludeHEADERS install-recursive install-strip \ ! installcheck installcheck-am installdirs installdirs-am \ ! installdirs-recursive maintainer-clean maintainer-clean-generic \ ! maintainer-clean-recursive mostlyclean mostlyclean-compile \ ! mostlyclean-generic mostlyclean-libtool mostlyclean-recursive \ ! pdf pdf-am pdf-recursive ps ps-am ps-recursive tags \ ! tags-recursive uninstall uninstall-am uninstall-binPROGRAMS \ ! uninstall-binSCRIPTS uninstall-info-am uninstall-info-recursive \ ! uninstall-libLTLIBRARIES uninstall-m4dataDATA \ ! uninstall-pkgconfigDATA uninstall-pkgincludeHEADERS \ ! uninstall-recursive *************** *** 696,700 **** #main_SOURCES = version.c env.c #main_LDADD = libgsl.la - # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. --- 900,903 ---- diff -x.info* -rc2P gsl-1.3/NEWS gsl-1.4/NEWS *** gsl-1.3/NEWS Sun Dec 15 19:23:34 2002 --- gsl-1.4/NEWS Sat Aug 2 16:15:12 2003 *************** *** 1,3 **** ! * What is new in gsl-1.3: ** Changed interface for gsl_sf_coupling_6j...(...). The old functions --- 1,98 ---- ! * What is new in gsl-1.4: ! ! ** Added cumulative distribution functions and their inverses for the ! continuous random distributions including: gaussian, lognormal, gamma, ! beta, cauchy, laplace, chisq, exponential, gumbel, weibull, ! F-distribution, t-distribution, logistic, pareto and rayleigh. ! ! ** Added faster binomial random variates using the TPE rejection ! algorithm, in the function gsl_randist_binomial_tpe. ! ! ** Added new functions gsl_rng_fwrite and gsl_rnd_fread for storing ! the state of random number generators in a file. ! ! ** Added a new function gsl_combination_memcpy() ! ! ** Corrected values of electrical constants in CGS units. To take ! account of different electrical systems of units the values are now ! prefixed by GSL_CONST_MKSA (for the SI Metre, Kilogram, Second, Ampere ! system) or GSL_CONST_CGSM (for the Centimetre, Gram, Second, Magnetic ! system with the Gauss as the fundamental unit of magnetic field ! strength). The previous GSL_CONST_MKS and GSL_CONST_CGS prefixes have ! been removed, as have the permeability and permittivity constants in ! the CGS system since this uses different defining equations. ! ! ** Fixed bugs in the random number generators gsl_rng_fishman18, ! gsl_rng_fishman2x, and gsl_rng_knuthran2 which caused them to return ! incorrect results. Minor corrections were made to the parameters in ! the other Knuth generators borosh13, coveyou, fishman20, lecuyer21, ! and waterman14. ! ! ** Fixed a missing transpose bug in the gsl_linalg_QR_QRsolve ! and gsl_linalg_QRPT_QRsolve routines which were computing the ! solution to Q^T R x = b instead of Q R x = b. ! ! ** Fixed gsl_sf_gammainv to return zero instead of a domain ! error for arguments corresponding to singularities in gamma. ! ! ** Fixed a bug in the simplex minimization algorithm which ! caused it to fail to find the second highest point correctly ! when searching the set of simplex points. ! ! ** Fixed a bug in the conjugate gradient minimizers conjugate_pr, ! conjugate_fr and vector_bgfs which caused the search ! directions to be updated incorrectly. ! ! ** Fixed a bug in gsl_sf_psi_1_int(1) which caused it to ! return the incorrect sign for psi(1,1). ! ! ** Fixed the simulated annealing routine gsl_siman_solve to use the ! parameter iters_fixed_T for the number of iterations at fixed ! temperature instead of n_tries. ! ! ** Fixed a bug in gsl_combination_valid which caused it to return the ! incorrect status. ! ! ** Fixed a bug in gsl_permutation_canonical_to_linear which caused the ! output to always be zero, and the input permutation to be incorrectly ! replaced by the output. ! ! ** Fixed a bug is gsl_ran_discrete which could cause uninitialised ! data to be returned for some distributions. ! ! ** Fixed the dependencies for gsl_chebyshev.h to include gsl_math.h. ! ! ** Fixed a bug in gsl_complex_arccsc_real which caused it to return ! the incorrect sign for the imaginary part when -110. ! ! ** Improved the accuracy of gsl_sf_coupling_3j for large arguments. ! ! ** Improved the performance of gsl_sf_choose(m,n) by separating the ! calculations for small and large arguments. ! ! ** On platforms without IEEE comparisons gsl_{isnan,isinf,finite} will ! fall back to the system versions of isnan, isinf and finite if ! available. ! ! ** gsl_linalg_householder_hv now uses BLAS routines internally ! ! ** The script configure.in is now compatible with autoconf-2.50 and ! later. ! ! ** Reduced the memory usage of the multifit algorithms from MxM to MxN ! for large M by performing the QR decomposition of the Jacobian ! in-place. ! ! ** IEEE modes now use the C99 fenv.h functions when platform spectific ! functions are not available. ! ! * What was new in gsl-1.3: ** Changed interface for gsl_sf_coupling_6j...(...). The old functions diff -x.info* -rc2P gsl-1.3/README gsl-1.4/README *** gsl-1.3/README Sat Oct 5 19:37:54 2002 --- gsl-1.4/README Wed Apr 9 11:53:18 2003 *************** *** 42,49 **** bookstores. The publication details are, ! GNU Scientific Library Reference Manual, M. Galassi et al, ! ISBN 095416170X ! (600 pages, paperback). Reporting Bugs --- 42,49 ---- bookstores. The publication details are, ! GNU Scientific Library Reference Manual - Second Edition, M. Galassi et al, ! ISBN 0954161734 ! (620 pages, paperback). Reporting Bugs diff -x.info* -rc2P gsl-1.3/THANKS gsl-1.4/THANKS *** gsl-1.3/THANKS Tue Dec 10 19:56:24 2002 --- gsl-1.4/THANKS Tue Aug 12 19:55:30 2003 *************** *** 61,65 **** * Steve Robbins patch to work around FP_RND ! problems on Tru64, testing and other patches. * John Fisher testing on powerpc linux --- 61,66 ---- * Steve Robbins patch to work around FP_RND ! problems on Tru64, testing and other patches., bug fix for nm_simplex ! algorithm. * John Fisher testing on powerpc linux *************** *** 100,104 **** * Achim Gaedke for bug reports and suggestions, additional histogram code, PyGSL python interface, 2d ! histogram statistics * Eric Rose for bug report and useful tip on casting --- 101,105 ---- * Achim Gaedke for bug reports and suggestions, additional histogram code, PyGSL python interface, 2d ! histogram statistics, bug fixes for simulated annealing * Eric Rose for bug report and useful tip on casting *************** *** 150,154 **** * for bug report ! * "Christian T. Steigies" for documentation bug report * Atakan Gurkan for bug reports and patches for the --- 151,155 ---- * for bug report ! * Christian T. Steigies for documentation bug report * Atakan Gurkan for bug reports and patches for the *************** *** 182,189 **** * Gene Carter build shared libraries on MacOS X ! * "Fabian Jakobs" fixed a bug in gsl_linalg_bidiag_unpack_B, and documentation bug-fix for blas ! * "Gavin Crooks" documentation bug fix, dirichlet distribution, multinomial distribution --- 183,190 ---- * Gene Carter build shared libraries on MacOS X ! * Fabian Jakobs fixed a bug in gsl_linalg_bidiag_unpack_B, and documentation bug-fix for blas ! * Gavin Crooks documentation bug fix, dirichlet distribution, multinomial distribution *************** *** 208,209 **** --- 209,264 ---- * Jerome Houdayer bug report for taus seeding + + * Conrad Curry bug and documentation reports + + * Erik Schnetter documentation bug reports + + * Maarten De Munck bug fix for vector/matrix get + + * Axel Hutt bug fix for QAWC integration + + * Martin Jansche bug reports + + * Gregory Soyez documentation bug report + + * Attilio Rivoldini bug report for CBLAS tests + + * W.M. Vissers bug report for + gsl_complex_arccsc_real + + * Paolo Redaelli bug report for chebyshev + functions + + * Andrew Howard bug report for gsl_ran_discrete + + * Heiko Bauke bug reports and patches + for random number generators + + * Vincent Sacksteder bug reports for MSVC7 + + * Peter Verveer improvement to memory + usage of MINPACK routines + + * Mario Pernici bug fix for + gsl_combination_valid and new function gsl_permutation_memcpy, + doc fix for bessel functions, bug fix for gsl_sf_psi_1_int, + bug report for gsl_permutation_canonical_to_linear, linalg + QRPT bug reports and fixes, and many other corrections. + + * Fabio Brugnara provided a much-needed bug + fix for the conjugate gradient algorithm multidimensional + minimisers. + + * Krzysztof Pachucki bug report for gsl_sf_hypergU_int + + * Carsten Svaneborg documentation bug report + + * Liguo Song documentation bug report + + * Carlo Ferrigno bug report for CGS units + + * Giulio Bottazzi documentation bug reports + + * Olaf Lenz rng frwite/fread + + * Jamie Lokier for testing diff -x.info* -rc2P gsl-1.3/TODO gsl-1.4/TODO *** gsl-1.3/TODO Tue Nov 5 17:08:04 2002 --- gsl-1.4/TODO Tue Aug 12 11:13:45 2003 *************** *** 8,12 **** * Fix error terms in implicit ODE solvers rk2imp, rk4imp, gear1, gear2. ! * Improve accuracy of coupling constant functions for large J (BUG#7) * PyGSL -- python bindings for GSL, see http://pygsl.sf.net/ --- 8,14 ---- * Fix error terms in implicit ODE solvers rk2imp, rk4imp, gear1, gear2. ! * Generate the examples in the manual directly from example .c ! files (these will also make a nice 'quick check' of programs ! that can be compiled against the installed library) * PyGSL -- python bindings for GSL, see http://pygsl.sf.net/ *************** *** 33,36 **** --- 35,40 ---- * Complex Bessel Functions + * Incomplete gamma functions 6.5.2 or 6.5.3 in Abramowitz & Stegun + * Additional volunteers with access to a good library to get copies of papers for other developers. *************** *** 47,59 **** * Fresnel Integrals ("Juergen J. Zach" ) ! * Cumulative Distribution functions for the random distributions ! (Jason Hooper Stover ) Other tasks: - - * Fix build problems which occur with -ansi (and similar options) - where BSD extensions like hypot(), log1p() are found by the - configure script in the system math library but without any - prototypes in the include files. * Remove use of long double internally, e.g. as an accumulator in --- 51,57 ---- * Fresnel Integrals ("Juergen J. Zach" ) ! * Cumulative Distribution functions for discrete random distributions Other tasks: * Remove use of long double internally, e.g. as an accumulator in diff -x.info* -rc2P gsl-1.3/acconfig.h gsl-1.4/acconfig.h *** gsl-1.3/acconfig.h Fri Sep 6 14:00:37 2002 --- gsl-1.4/acconfig.h Tue Aug 5 15:15:10 2003 *************** *** 1,3 **** --- 1,7 ---- @BOTTOM@ + + /* Defined if this is an official release */ + #undef RELEASED + /* Define if you have inline */ #undef HAVE_INLINE *************** *** 6,34 **** #undef HIDE_INLINE_STATIC - /* Define if you have the ansi CLOCKS_PER_SEC clock rate */ - #undef HAVE_CLOCKS_PER_SEC - - /* Defined if configure has guessed a missing ansi CLOCKS_PER_SEC clock rate */ - #undef HAVE_GUESSED_CLOCKS_PER_SEC - - /* Use configure's best guess for CLOCKS_PER_SEC if it is unknown */ - #ifndef HAVE_CLOCKS_PER_SEC - #define CLOCKS_PER_SEC HAVE_GUESSED_CLOCKS_PER_SEC - #endif - /* Defined if you have ansi EXIT_SUCCESS and EXIT_FAILURE in stdlib.h */ #undef HAVE_EXIT_SUCCESS_AND_FAILURE /* Use 0 and 1 for EXIT_SUCCESS and EXIT_FAILURE if we don't have them */ ! #ifndef HAVE_EXIT_SUCCESS_AND_FAILURE #define EXIT_SUCCESS 0 #define EXIT_FAILURE 1 #endif /* Define one of these if you have a known IEEE arithmetic interface */ ! #undef HAVE_SPARCLINUX_IEEE_INTERFACE ! #undef HAVE_M68KLINUX_IEEE_INTERFACE ! #undef HAVE_PPCLINUX_IEEE_INTERFACE ! #undef HAVE_X86LINUX_IEEE_INTERFACE #undef HAVE_SUNOS4_IEEE_INTERFACE #undef HAVE_SOLARIS_IEEE_INTERFACE --- 10,30 ---- #undef HIDE_INLINE_STATIC /* Defined if you have ansi EXIT_SUCCESS and EXIT_FAILURE in stdlib.h */ #undef HAVE_EXIT_SUCCESS_AND_FAILURE /* Use 0 and 1 for EXIT_SUCCESS and EXIT_FAILURE if we don't have them */ ! #if !HAVE_EXIT_SUCCESS_AND_FAILURE #define EXIT_SUCCESS 0 #define EXIT_FAILURE 1 #endif + /* Define this if printf can handle %Lf for long double */ + #undef HAVE_PRINTF_LONGDOUBLE + /* Define one of these if you have a known IEEE arithmetic interface */ ! #undef HAVE_GNUSPARC_IEEE_INTERFACE ! #undef HAVE_GNUM68K_IEEE_INTERFACE ! #undef HAVE_GNUPPC_IEEE_INTERFACE ! #undef HAVE_GNUX86_IEEE_INTERFACE #undef HAVE_SUNOS4_IEEE_INTERFACE #undef HAVE_SOLARIS_IEEE_INTERFACE *************** *** 44,51 **** #undef HAVE_DARWIN_IEEE_INTERFACE ! /* Define this if we need to include /usr/include/float.h explicitly ! in order to get FP_RND_RN and related macros. This is known to be ! a problem on some Compaq Tru64 unix systems when compiled with GCC. */ ! #undef FIND_FP_RND_IN_USR_INCLUDE_FLOAT_H /* Define a rounding function which moves extended precision values --- 40,48 ---- #undef HAVE_DARWIN_IEEE_INTERFACE ! /* Define this is IEEE comparisons work correctly (e.g. NaN != NaN) */ ! #undef HAVE_IEEE_COMPARISONS ! ! /* Define this is IEEE denormalized numbers are available */ ! #undef HAVE_IEEE_DENORMALS /* Define a rounding function which moves extended precision values *************** *** 65,69 **** #undef HAVE_EXTENDED_PRECISION_REGISTERS ! #ifdef HAVE_EXTENDED_PRECISION_REGISTERS #define GSL_COERCE_DBL(x) (gsl_coerce_double(x)) #else --- 62,66 ---- #undef HAVE_EXTENDED_PRECISION_REGISTERS ! #if HAVE_EXTENDED_PRECISION_REGISTERS #define GSL_COERCE_DBL(x) (gsl_coerce_double(x)) #else *************** *** 71,128 **** #endif - /* Define this if printf can handle %Lf for long double */ - #undef HAVE_PRINTF_LONGDOUBLE - - /* Define this is IEEE comparisons work correctly (e.g. NaN != NaN) */ - #undef HAVE_IEEE_COMPARISONS - - /* Define this is IEEE denormalized numbers are available */ - #undef HAVE_IEEE_DENORMALS - /* Substitute gsl functions for missing system functions */ ! #ifndef HAVE_HYPOT #define hypot gsl_hypot #endif ! #ifndef HAVE_LOG1P #define log1p gsl_log1p #endif ! #ifndef HAVE_EXPM1 #define expm1 gsl_expm1 #endif ! #ifndef HAVE_ACOSH #define acosh gsl_acosh #endif ! #ifndef HAVE_ASINH #define asinh gsl_asinh #endif ! #ifndef HAVE_ATANH #define atanh gsl_atanh #endif ! #ifndef HAVE_ISINF ! #define isinf gsl_isinf ! #endif ! ! #ifndef HAVE_ISNAN ! #define isnan gsl_isnan ! #endif ! ! #ifndef HAVE_LDEXP #define ldexp gsl_ldexp #endif ! #ifndef HAVE_FREXP #define frexp gsl_frexp #endif ! #ifndef HAVE_FINITE ! #ifdef HAVE_ISFINITE #define finite isfinite #else --- 68,111 ---- #endif /* Substitute gsl functions for missing system functions */ ! #if !HAVE_DECL_HYPOT #define hypot gsl_hypot #endif ! #if !HAVE_DECL_LOG1P #define log1p gsl_log1p #endif ! #if !HAVE_DECL_EXPM1 #define expm1 gsl_expm1 #endif ! #if !HAVE_DECL_ACOSH #define acosh gsl_acosh #endif ! #if !HAVE_DECL_ASINH #define asinh gsl_asinh #endif ! #if !HAVE_DECL_ATANH #define atanh gsl_atanh #endif ! #if !HAVE_DECL_LDEXP #define ldexp gsl_ldexp #endif ! #if !HAVE_DECL_FREXP #define frexp gsl_frexp #endif + #if !HAVE_DECL_ISINF + #define isinf gsl_isinf + #endif ! #if !HAVE_DECL_FINITE ! #if HAVE_DECL_ISFINITE #define finite isfinite #else *************** *** 131,134 **** --- 114,121 ---- #endif + #if !HAVE_DECL_ISNAN + #define isnan gsl_isnan + #endif + #ifdef __GNUC__ #define DISCARD_POINTER(p) do { ; } while(p ? 0 : 0); *************** *** 137,141 **** #endif ! #ifndef GSL_RANGE_CHECK_ON ! #define GSL_RANGE_CHECK_OFF /* turn off range checking by default */ #endif --- 124,128 ---- #endif ! #if defined(GSL_RANGE_CHECK_OFF) || !defined(GSL_RANGE_CHECK) ! #define GSL_RANGE_CHECK 0 /* turn off range checking by default */ #endif diff -x.info* -rc2P gsl-1.3/aclocal.m4 gsl-1.4/aclocal.m4 *** gsl-1.3/aclocal.m4 Wed Dec 18 22:31:49 2002 --- gsl-1.4/aclocal.m4 Thu Aug 14 12:28:27 2003 *************** *** 1,46 **** ! dnl aclocal.m4 generated automatically by aclocal 1.4-p5 ! ! dnl Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. ! dnl This file is free software; the Free Software Foundation ! dnl gives unlimited permission to copy and/or distribute it, ! dnl with or without modifications, as long as this notice is preserved. ! ! dnl This program is distributed in the hope that it will be useful, ! dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without ! dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A ! dnl PARTICULAR PURPOSE. ! ! # Do all the work for Automake. This macro actually does too much -- ! # some checks are only needed if your package does certain things. ! # But this isn't really a big deal. ! ! # serial 1 ! ! dnl Usage: ! dnl AM_INIT_AUTOMAKE(package,version, [no-define]) AC_DEFUN([AM_INIT_AUTOMAKE], ! [AC_REQUIRE([AC_PROG_INSTALL]) ! PACKAGE=[$1] ! AC_SUBST(PACKAGE) ! VERSION=[$2] ! AC_SUBST(VERSION) ! dnl test to see if srcdir already configured ! if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi ! ifelse([$3],, ! AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) ! AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])) ! AC_REQUIRE([AM_SANITY_CHECK]) ! AC_REQUIRE([AC_ARG_PROGRAM]) ! dnl FIXME This is truly gross. ! missing_dir=`cd $ac_aux_dir && pwd` ! AM_MISSING_PROG(ACLOCAL, aclocal, $missing_dir) ! AM_MISSING_PROG(AUTOCONF, autoconf, $missing_dir) ! AM_MISSING_PROG(AUTOMAKE, automake, $missing_dir) ! AM_MISSING_PROG(AUTOHEADER, autoheader, $missing_dir) ! AM_MISSING_PROG(MAKEINFO, makeinfo, $missing_dir) ! AC_REQUIRE([AC_PROG_MAKE_SET])]) # --- 1,212 ---- ! # generated automatically by aclocal 1.7.5 -*- Autoconf -*- + # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 + # Free Software Foundation, Inc. + # This file is free software; the Free Software Foundation + # gives unlimited permission to copy and/or distribute it, + # with or without modifications, as long as this notice is preserved. + + # This program is distributed in the hope that it will be useful, + # but WITHOUT ANY WARRANTY, to the extent permitted by law; without + # even the implied warranty of MERCHANTABILITY or FITNESS FOR A + # PARTICULAR PURPOSE. + + # Do all the work for Automake. -*- Autoconf -*- + + # This macro actually does too much some checks are only needed if + # your package does certain things. But this isn't really a big deal. + + # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 + # Free Software Foundation, Inc. + + # This program is free software; you can redistribute it and/or modify + # it under the terms of the GNU General Public License as published by + # the Free Software Foundation; either version 2, or (at your option) + # any later version. + + # This program is distributed in the hope that it will be useful, + # but WITHOUT ANY WARRANTY; without even the implied warranty of + # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + # GNU General Public License for more details. + + # You should have received a copy of the GNU General Public License + # along with this program; if not, write to the Free Software + # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + # 02111-1307, USA. + + # serial 10 + + AC_PREREQ([2.54]) + + # Autoconf 2.50 wants to disallow AM_ names. We explicitly allow + # the ones we care about. + m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl + + # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) + # AM_INIT_AUTOMAKE([OPTIONS]) + # ----------------------------------------------- + # The call with PACKAGE and VERSION arguments is the old style + # call (pre autoconf-2.50), which is being phased out. PACKAGE + # and VERSION should now be passed to AC_INIT and removed from + # the call to AM_INIT_AUTOMAKE. + # We support both call styles for the transition. After + # the next Automake release, Autoconf can make the AC_INIT + # arguments mandatory, and then we can depend on a new Autoconf + # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], ! [AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl ! AC_REQUIRE([AC_PROG_INSTALL])dnl ! # test to see if srcdir already configured ! if test "`cd $srcdir && pwd`" != "`pwd`" && ! test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi ! ! # test whether we have cygpath ! if test -z "$CYGPATH_W"; then ! if (cygpath --version) >/dev/null 2>/dev/null; then ! CYGPATH_W='cygpath -w' ! else ! CYGPATH_W=echo ! fi ! fi ! AC_SUBST([CYGPATH_W]) ! ! # Define the identity of the package. ! dnl Distinguish between old-style and new-style calls. ! m4_ifval([$2], ! [m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl ! AC_SUBST([PACKAGE], [$1])dnl ! AC_SUBST([VERSION], [$2])], ! [_AM_SET_OPTIONS([$1])dnl ! AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl ! AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl ! ! _AM_IF_OPTION([no-define],, ! [AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) ! AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl ! ! # Some tools Automake needs. ! AC_REQUIRE([AM_SANITY_CHECK])dnl ! AC_REQUIRE([AC_ARG_PROGRAM])dnl ! AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version}) ! AM_MISSING_PROG(AUTOCONF, autoconf) ! AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}) ! AM_MISSING_PROG(AUTOHEADER, autoheader) ! AM_MISSING_PROG(MAKEINFO, makeinfo) ! AM_MISSING_PROG(AMTAR, tar) ! AM_PROG_INSTALL_SH ! AM_PROG_INSTALL_STRIP ! # We need awk for the "check" target. The system "awk" is bad on ! # some platforms. ! AC_REQUIRE([AC_PROG_AWK])dnl ! AC_REQUIRE([AC_PROG_MAKE_SET])dnl ! AC_REQUIRE([AM_SET_LEADING_DOT])dnl ! ! _AM_IF_OPTION([no-dependencies],, ! [AC_PROVIDE_IFELSE([AC_PROG_CC], ! [_AM_DEPENDENCIES(CC)], ! [define([AC_PROG_CC], ! defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl ! AC_PROVIDE_IFELSE([AC_PROG_CXX], ! [_AM_DEPENDENCIES(CXX)], ! [define([AC_PROG_CXX], ! defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl ! ]) ! ]) ! ! ! # When config.status generates a header, we must update the stamp-h file. ! # This file resides in the same directory as the config header ! # that is generated. The stamp files are numbered to have different names. ! ! # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the ! # loop where config.status creates the headers, so we can generate ! # our stamp files there. ! AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], ! [# Compute $1's index in $config_headers. ! _am_stamp_count=1 ! for _am_header in $config_headers :; do ! case $_am_header in ! $1 | $1:* ) ! break ;; ! * ) ! _am_stamp_count=`expr $_am_stamp_count + 1` ;; ! esac ! done ! echo "timestamp for $1" >`AS_DIRNAME([$1])`/stamp-h[]$_am_stamp_count]) ! ! # Copyright 2002 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! ! # AM_AUTOMAKE_VERSION(VERSION) ! # ---------------------------- ! # Automake X.Y traces this macro to ensure aclocal.m4 has been ! # generated from the m4 files accompanying Automake X.Y. ! AC_DEFUN([AM_AUTOMAKE_VERSION],[am__api_version="1.7"]) ! ! # AM_SET_CURRENT_AUTOMAKE_VERSION ! # ------------------------------- ! # Call AM_AUTOMAKE_VERSION so it can be traced. ! # This function is AC_REQUIREd by AC_INIT_AUTOMAKE. ! AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], ! [AM_AUTOMAKE_VERSION([1.7.5])]) ! ! # Helper functions for option handling. -*- Autoconf -*- ! ! # Copyright 2001, 2002 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # serial 2 ! ! # _AM_MANGLE_OPTION(NAME) ! # ----------------------- ! AC_DEFUN([_AM_MANGLE_OPTION], ! [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) ! ! # _AM_SET_OPTION(NAME) ! # ------------------------------ ! # Set option NAME. Presently that only means defining a flag for this option. ! AC_DEFUN([_AM_SET_OPTION], ! [m4_define(_AM_MANGLE_OPTION([$1]), 1)]) ! ! # _AM_SET_OPTIONS(OPTIONS) ! # ---------------------------------- ! # OPTIONS is a space-separated list of Automake options. ! AC_DEFUN([_AM_SET_OPTIONS], ! [AC_FOREACH([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) ! ! # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) ! # ------------------------------------------- ! # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. ! AC_DEFUN([_AM_IF_OPTION], ! [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # *************** *** 48,56 **** # AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 ! echo timestamp > conftestfile # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a --- 214,243 ---- # + # Copyright 1996, 1997, 2000, 2001 Free Software Foundation, Inc. + + # This program is free software; you can redistribute it and/or modify + # it under the terms of the GNU General Public License as published by + # the Free Software Foundation; either version 2, or (at your option) + # any later version. + + # This program is distributed in the hope that it will be useful, + # but WITHOUT ANY WARRANTY; without even the implied warranty of + # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + # GNU General Public License for more details. + + # You should have received a copy of the GNU General Public License + # along with this program; if not, write to the Free Software + # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + # 02111-1307, USA. + + # serial 3 + + # AM_SANITY_CHECK + # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 ! echo timestamp > conftest.file # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a *************** *** 59,69 **** # directory). if ( ! set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null` ! if test "[$]*" = "X"; then # -L didn't work. ! set X `ls -t $srcdir/configure conftestfile` fi ! if test "[$]*" != "X $srcdir/configure conftestfile" \ ! && test "[$]*" != "X conftestfile $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen --- 246,257 ---- # directory). if ( ! set X `ls -Lt $srcdir/configure conftest.file 2> /dev/null` ! if test "$[*]" = "X"; then # -L didn't work. ! set X `ls -t $srcdir/configure conftest.file` fi ! rm -f conftest.file ! if test "$[*]" != "X $srcdir/configure conftest.file" \ ! && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen *************** *** 75,79 **** fi ! test "[$]2" = conftestfile ) then --- 263,267 ---- fi ! test "$[2]" = conftest.file ) then *************** *** 84,133 **** Check your system clock]) fi - rm -f conftest* AC_MSG_RESULT(yes)]) ! dnl AM_MISSING_PROG(NAME, PROGRAM, DIRECTORY) ! dnl The program must properly implement --version. AC_DEFUN([AM_MISSING_PROG], ! [AC_MSG_CHECKING(for working $2) ! # Run test in a subshell; some versions of sh will print an error if ! # an executable is not found, even if stderr is redirected. ! # Redirect stdin to placate older versions of autoconf. Sigh. ! if ($2 --version) < /dev/null > /dev/null 2>&1; then ! $1=$2 ! AC_MSG_RESULT(found) else ! $1="$3/missing $2" ! AC_MSG_RESULT(missing) fi ! AC_SUBST($1)]) - # Like AC_CONFIG_HEADER, but automatically create stamp file. ! AC_DEFUN([AM_CONFIG_HEADER], ! [AC_PREREQ([2.12]) ! AC_CONFIG_HEADER([$1]) ! dnl When config.status generates a header, we must update the stamp-h file. ! dnl This file resides in the same directory as the config header ! dnl that is generated. We must strip everything past the first ":", ! dnl and everything past the last "/". ! AC_OUTPUT_COMMANDS(changequote(<<,>>)dnl ! ifelse(patsubst(<<$1>>, <<[^ ]>>, <<>>), <<>>, ! <>CONFIG_HEADERS" || echo timestamp > patsubst(<<$1>>, <<^\([^:]*/\)?.*>>, <<\1>>)stamp-h<<>>dnl>>, ! <>; do ! case " <<$>>CONFIG_HEADERS " in ! *" <<$>>am_file "*<<)>> ! echo timestamp > `echo <<$>>am_file | sed -e 's%:.*%%' -e 's%[^/]*$%%'`stamp-h$am_indx ! ;; ! esac ! am_indx=`expr "<<$>>am_indx" + 1` ! done<<>>dnl>>) ! changequote([,]))]) # Add --enable-maintainer-mode option to configure. # From Jim Meyering ! # serial 1 AC_DEFUN([AM_MAINTAINER_MODE], --- 272,869 ---- Check your system clock]) fi AC_MSG_RESULT(yes)]) ! # -*- Autoconf -*- ! ! ! # Copyright 1997, 1999, 2000, 2001 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # serial 3 ! ! # AM_MISSING_PROG(NAME, PROGRAM) ! # ------------------------------ AC_DEFUN([AM_MISSING_PROG], ! [AC_REQUIRE([AM_MISSING_HAS_RUN]) ! $1=${$1-"${am_missing_run}$2"} ! AC_SUBST($1)]) ! ! ! # AM_MISSING_HAS_RUN ! # ------------------ ! # Define MISSING if not defined so far and test if it supports --run. ! # If it does, set am_missing_run to use it, otherwise, to nothing. ! AC_DEFUN([AM_MISSING_HAS_RUN], ! [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl ! test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" ! # Use eval to expand $SHELL ! if eval "$MISSING --run true"; then ! am_missing_run="$MISSING --run " else ! am_missing_run= ! AC_MSG_WARN([`missing' script is too old or missing]) fi ! ]) ! ! # AM_AUX_DIR_EXPAND ! ! # Copyright 2001 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets ! # $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to ! # `$srcdir', `$srcdir/..', or `$srcdir/../..'. ! # ! # Of course, Automake must honor this variable whenever it calls a ! # tool from the auxiliary directory. The problem is that $srcdir (and ! # therefore $ac_aux_dir as well) can be either absolute or relative, ! # depending on how configure is run. This is pretty annoying, since ! # it makes $ac_aux_dir quite unusable in subdirectories: in the top ! # source directory, any form will work fine, but in subdirectories a ! # relative path needs to be adjusted first. ! # ! # $ac_aux_dir/missing ! # fails when called from a subdirectory if $ac_aux_dir is relative ! # $top_srcdir/$ac_aux_dir/missing ! # fails if $ac_aux_dir is absolute, ! # fails when called from a subdirectory in a VPATH build with ! # a relative $ac_aux_dir ! # ! # The reason of the latter failure is that $top_srcdir and $ac_aux_dir ! # are both prefixed by $srcdir. In an in-source build this is usually ! # harmless because $srcdir is `.', but things will broke when you ! # start a VPATH build or use an absolute $srcdir. ! # ! # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, ! # iff we strip the leading $srcdir from $ac_aux_dir. That would be: ! # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` ! # and then we would define $MISSING as ! # MISSING="\${SHELL} $am_aux_dir/missing" ! # This will work as long as MISSING is not called from configure, because ! # unfortunately $(top_srcdir) has no meaning in configure. ! # However there are other variables, like CC, which are often used in ! # configure, and could therefore not use this "fixed" $ac_aux_dir. ! # ! # Another solution, used here, is to always expand $ac_aux_dir to an ! # absolute PATH. The drawback is that using absolute paths prevent a ! # configured tree to be moved without reconfiguration. ! ! # Rely on autoconf to set up CDPATH properly. ! AC_PREREQ([2.50]) ! ! AC_DEFUN([AM_AUX_DIR_EXPAND], [ ! # expand $ac_aux_dir to an absolute path ! am_aux_dir=`cd $ac_aux_dir && pwd` ! ]) ! ! # AM_PROG_INSTALL_SH ! # ------------------ ! # Define $install_sh. ! ! # Copyright 2001 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! AC_DEFUN([AM_PROG_INSTALL_SH], ! [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl ! install_sh=${install_sh-"$am_aux_dir/install-sh"} ! AC_SUBST(install_sh)]) ! ! # AM_PROG_INSTALL_STRIP ! ! # Copyright 2001 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # One issue with vendor `install' (even GNU) is that you can't ! # specify the program used to strip binaries. This is especially ! # annoying in cross-compiling environments, where the build's strip ! # is unlikely to handle the host's binaries. ! # Fortunately install-sh will honor a STRIPPROG variable, so we ! # always use install-sh in `make install-strip', and initialize ! # STRIPPROG with the value of the STRIP variable (set by the user). ! AC_DEFUN([AM_PROG_INSTALL_STRIP], ! [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl ! # Installed binaries are usually stripped using `strip' when the user ! # run `make install-strip'. However `strip' might not be the right ! # tool to use in cross-compilation environments, therefore Automake ! # will honor the `STRIP' environment variable to overrule this program. ! dnl Don't test for $cross_compiling = yes, because it might be `maybe'. ! if test "$cross_compiling" != no; then ! AC_CHECK_TOOL([STRIP], [strip], :) ! fi ! INSTALL_STRIP_PROGRAM="\${SHELL} \$(install_sh) -c -s" ! AC_SUBST([INSTALL_STRIP_PROGRAM])]) ! ! # -*- Autoconf -*- ! # Copyright (C) 2003 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # serial 1 ! ! # Check whether the underlying file-system supports filenames ! # with a leading dot. For instance MS-DOS doesn't. ! AC_DEFUN([AM_SET_LEADING_DOT], ! [rm -rf .tst 2>/dev/null ! mkdir .tst 2>/dev/null ! if test -d .tst; then ! am__leading_dot=. ! else ! am__leading_dot=_ ! fi ! rmdir .tst 2>/dev/null ! AC_SUBST([am__leading_dot])]) ! ! # serial 5 -*- Autoconf -*- ! ! # Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! ! # There are a few dirty hacks below to avoid letting `AC_PROG_CC' be ! # written in clear, in which case automake, when reading aclocal.m4, ! # will think it sees a *use*, and therefore will trigger all it's ! # C support machinery. Also note that it means that autoscan, seeing ! # CC etc. in the Makefile, will ask for an AC_PROG_CC use... ! ! # _AM_DEPENDENCIES(NAME) ! # ---------------------- ! # See how the compiler implements dependency checking. ! # NAME is "CC", "CXX", "GCJ", or "OBJC". ! # We try a few techniques and use that to set a single cache variable. ! # ! # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was ! # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular ! # dependency, and given that the user is not expected to run this macro, ! # just rely on AC_PROG_CC. ! AC_DEFUN([_AM_DEPENDENCIES], ! [AC_REQUIRE([AM_SET_DEPDIR])dnl ! AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl ! AC_REQUIRE([AM_MAKE_INCLUDE])dnl ! AC_REQUIRE([AM_DEP_TRACK])dnl ! ! ifelse([$1], CC, [depcc="$CC" am_compiler_list=], ! [$1], CXX, [depcc="$CXX" am_compiler_list=], ! [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'], ! [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'], ! [depcc="$$1" am_compiler_list=]) ! ! AC_CACHE_CHECK([dependency style of $depcc], ! [am_cv_$1_dependencies_compiler_type], ! [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then ! # We make a subdir and do the tests there. Otherwise we can end up ! # making bogus files that we don't know about and never remove. For ! # instance it was reported that on HP-UX the gcc test will end up ! # making a dummy file named `D' -- because `-MD' means `put the output ! # in D'. ! mkdir conftest.dir ! # Copy depcomp to subdir because otherwise we won't find it if we're ! # using a relative directory. ! cp "$am_depcomp" conftest.dir ! cd conftest.dir ! ! am_cv_$1_dependencies_compiler_type=none ! if test "$am_compiler_list" = ""; then ! am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` ! fi ! for depmode in $am_compiler_list; do ! # We need to recreate these files for each test, as the compiler may ! # overwrite some of them when testing with obscure command lines. ! # This happens at least with the AIX C compiler. ! echo '#include "conftest.h"' > conftest.c ! echo 'int i;' > conftest.h ! echo "${am__include} ${am__quote}conftest.Po${am__quote}" > confmf ! ! case $depmode in ! nosideeffect) ! # after this tag, mechanisms are not by side-effect, so they'll ! # only be used when explicitly requested ! if test "x$enable_dependency_tracking" = xyes; then ! continue ! else ! break ! fi ! ;; ! none) break ;; ! esac ! # We check with `-c' and `-o' for the sake of the "dashmstdout" ! # mode. It turns out that the SunPro C++ compiler does not properly ! # handle `-M -o', and we need to detect this. ! if depmode=$depmode \ ! source=conftest.c object=conftest.o \ ! depfile=conftest.Po tmpdepfile=conftest.TPo \ ! $SHELL ./depcomp $depcc -c -o conftest.o conftest.c \ ! >/dev/null 2>conftest.err && ! grep conftest.h conftest.Po > /dev/null 2>&1 && ! ${MAKE-make} -s -f confmf > /dev/null 2>&1; then ! # icc doesn't choke on unknown options, it will just issue warnings ! # (even with -Werror). So we grep stderr for any message ! # that says an option was ignored. ! if grep 'ignoring option' conftest.err >/dev/null 2>&1; then :; else ! am_cv_$1_dependencies_compiler_type=$depmode ! break ! fi ! fi ! done ! ! cd .. ! rm -rf conftest.dir ! else ! am_cv_$1_dependencies_compiler_type=none ! fi ! ]) ! AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) ! AM_CONDITIONAL([am__fastdep$1], [ ! test "x$enable_dependency_tracking" != xno \ ! && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ! ]) ! ! ! # AM_SET_DEPDIR ! # ------------- ! # Choose a directory name for dependency files. ! # This macro is AC_REQUIREd in _AM_DEPENDENCIES ! AC_DEFUN([AM_SET_DEPDIR], ! [AC_REQUIRE([AM_SET_LEADING_DOT])dnl ! AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ! ]) ! ! ! # AM_DEP_TRACK ! # ------------ ! AC_DEFUN([AM_DEP_TRACK], ! [AC_ARG_ENABLE(dependency-tracking, ! [ --disable-dependency-tracking Speeds up one-time builds ! --enable-dependency-tracking Do not reject slow dependency extractors]) ! if test "x$enable_dependency_tracking" != xno; then ! am_depcomp="$ac_aux_dir/depcomp" ! AMDEPBACKSLASH='\' ! fi ! AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) ! AC_SUBST([AMDEPBACKSLASH]) ! ]) ! ! # Generate code to set up dependency tracking. -*- Autoconf -*- ! ! # Copyright 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! #serial 2 ! ! # _AM_OUTPUT_DEPENDENCY_COMMANDS ! # ------------------------------ ! AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], ! [for mf in $CONFIG_FILES; do ! # Strip MF so we end up with the name of the file. ! mf=`echo "$mf" | sed -e 's/:.*$//'` ! # Check whether this is an Automake generated Makefile or not. ! # We used to match only the files named `Makefile.in', but ! # some people rename them; so instead we look at the file content. ! # Grep'ing the first line is not enough: some people post-process ! # each Makefile.in and add a new line on top of each file to say so. ! # So let's grep whole file. ! if grep '^#.*generated by automake' $mf > /dev/null 2>&1; then ! dirpart=`AS_DIRNAME("$mf")` ! else ! continue ! fi ! grep '^DEP_FILES *= *[[^ @%:@]]' < "$mf" > /dev/null || continue ! # Extract the definition of DEP_FILES from the Makefile without ! # running `make'. ! DEPDIR=`sed -n -e '/^DEPDIR = / s///p' < "$mf"` ! test -z "$DEPDIR" && continue ! # When using ansi2knr, U may be empty or an underscore; expand it ! U=`sed -n -e '/^U = / s///p' < "$mf"` ! test -d "$dirpart/$DEPDIR" || mkdir "$dirpart/$DEPDIR" ! # We invoke sed twice because it is the simplest approach to ! # changing $(DEPDIR) to its actual value in the expansion. ! for file in `sed -n -e ' ! /^DEP_FILES = .*\\\\$/ { ! s/^DEP_FILES = // ! :loop ! s/\\\\$// ! p ! n ! /\\\\$/ b loop ! p ! } ! /^DEP_FILES = / s/^DEP_FILES = //p' < "$mf" | \ ! sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do ! # Make sure the directory exists. ! test -f "$dirpart/$file" && continue ! fdir=`AS_DIRNAME(["$file"])` ! AS_MKDIR_P([$dirpart/$fdir]) ! # echo "creating $dirpart/$file" ! echo '# dummy' > "$dirpart/$file" ! done ! done ! ])# _AM_OUTPUT_DEPENDENCY_COMMANDS ! ! ! # AM_OUTPUT_DEPENDENCY_COMMANDS ! # ----------------------------- ! # This macro should only be invoked once -- use via AC_REQUIRE. ! # ! # This code is only required when automatic dependency tracking ! # is enabled. FIXME. This creates each `.P' file that we will ! # need in order to bootstrap the dependency handling code. ! AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], ! [AC_CONFIG_COMMANDS([depfiles], ! [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], ! [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ! ]) ! ! # Check to see how 'make' treats includes. -*- Autoconf -*- ! ! # Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # serial 2 ! ! # AM_MAKE_INCLUDE() ! # ----------------- ! # Check to see how make treats includes. ! AC_DEFUN([AM_MAKE_INCLUDE], ! [am_make=${MAKE-make} ! cat > confinc << 'END' ! am__doit: ! @echo done ! .PHONY: am__doit ! END ! # If we don't find an include directive, just comment out the code. ! AC_MSG_CHECKING([for style of include used by $am_make]) ! am__include="#" ! am__quote= ! _am_result=none ! # First try GNU make style include. ! echo "include confinc" > confmf ! # We grep out `Entering directory' and `Leaving directory' ! # messages which can occur if `w' ends up in MAKEFLAGS. ! # In particular we don't look at `^make:' because GNU make might ! # be invoked under some other name (usually "gmake"), in which ! # case it prints its new name instead of `make'. ! if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then ! am__include=include ! am__quote= ! _am_result=GNU ! fi ! # Now try BSD make style include. ! if test "$am__include" = "#"; then ! echo '.include "confinc"' > confmf ! if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then ! am__include=.include ! am__quote="\"" ! _am_result=BSD ! fi ! fi ! AC_SUBST([am__include]) ! AC_SUBST([am__quote]) ! AC_MSG_RESULT([$_am_result]) ! rm -f confinc confmf ! ]) ! ! # AM_CONDITIONAL -*- Autoconf -*- ! ! # Copyright 1997, 2000, 2001 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # serial 5 ! ! AC_PREREQ(2.52) ! ! # AM_CONDITIONAL(NAME, SHELL-CONDITION) ! # ------------------------------------- ! # Define a conditional. ! AC_DEFUN([AM_CONDITIONAL], ! [ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], ! [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl ! AC_SUBST([$1_TRUE]) ! AC_SUBST([$1_FALSE]) ! if $2; then ! $1_TRUE= ! $1_FALSE='#' ! else ! $1_TRUE='#' ! $1_FALSE= ! fi ! AC_CONFIG_COMMANDS_PRE( ! [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then ! AC_MSG_ERROR([conditional "$1" was never defined. ! Usually this means the macro was only invoked conditionally.]) ! fi])]) ! ! # Like AC_CONFIG_HEADER, but automatically create stamp file. -*- Autoconf -*- ! ! # Copyright 1996, 1997, 2000, 2001 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! AC_PREREQ([2.52]) ! ! # serial 6 ! ! # AM_CONFIG_HEADER is obsolete. It has been replaced by AC_CONFIG_HEADERS. ! AU_DEFUN([AM_CONFIG_HEADER], [AC_CONFIG_HEADERS($@)]) # Add --enable-maintainer-mode option to configure. # From Jim Meyering ! # Copyright 1996, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. ! ! # This program is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2, or (at your option) ! # any later version. ! ! # This program is distributed in the hope that it will be useful, ! # but WITHOUT ANY WARRANTY; without even the implied warranty of ! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! # GNU General Public License for more details. ! ! # You should have received a copy of the GNU General Public License ! # along with this program; if not, write to the Free Software ! # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ! # 02111-1307, USA. ! ! # serial 2 AC_DEFUN([AM_MAINTAINER_MODE], *************** *** 139,144 **** USE_MAINTAINER_MODE=$enableval, USE_MAINTAINER_MODE=no) ! AC_MSG_RESULT($USE_MAINTAINER_MODE) ! AM_CONDITIONAL(MAINTAINER_MODE, test $USE_MAINTAINER_MODE = yes) MAINT=$MAINTAINER_MODE_TRUE AC_SUBST(MAINT)dnl --- 875,880 ---- USE_MAINTAINER_MODE=$enableval, USE_MAINTAINER_MODE=no) ! AC_MSG_RESULT([$USE_MAINTAINER_MODE]) ! AM_CONDITIONAL(MAINTAINER_MODE, [test $USE_MAINTAINER_MODE = yes]) MAINT=$MAINTAINER_MODE_TRUE AC_SUBST(MAINT)dnl *************** *** 146,161 **** ) ! # Define a conditional. ! ! AC_DEFUN([AM_CONDITIONAL], ! [AC_SUBST($1_TRUE) ! AC_SUBST($1_FALSE) ! if $2; then ! $1_TRUE= ! $1_FALSE='#' ! else ! $1_TRUE='#' ! $1_FALSE= ! fi]) # libtool.m4 - Configure libtool for the host system. -*-Shell-script-*- --- 882,886 ---- ) ! AU_DEFUN([jm_MAINTAINER_MODE], [AM_MAINTAINER_MODE]) # libtool.m4 - Configure libtool for the host system. -*-Shell-script-*- diff -x.info* -rc2P gsl-1.3/blas/Makefile.in gsl-1.4/blas/Makefile.in *** gsl-1.3/blas/Makefile.in Wed Dec 18 22:38:07 2002 --- gsl-1.4/blas/Makefile.in Thu Aug 14 12:30:36 2003 *************** *** 1,5 **** ! # Makefile.in generated automatically by automake 1.4-p5 from Makefile.am ! # Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, --- 1,7 ---- ! # Makefile.in generated by automake 1.7.5 from Makefile.am. ! # @configure_input@ ! # Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 ! # Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, *************** *** 11,55 **** # PARTICULAR PURPOSE. ! ! SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ - prefix = @prefix@ - exec_prefix = @exec_prefix@ - - bindir = @bindir@ - sbindir = @sbindir@ - libexecdir = @libexecdir@ - datadir = @datadir@ - sysconfdir = @sysconfdir@ - sharedstatedir = @sharedstatedir@ - localstatedir = @localstatedir@ - libdir = @libdir@ - infodir = @infodir@ - mandir = @mandir@ - includedir = @includedir@ - oldincludedir = /usr/include - - DESTDIR = - pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ - top_builddir = .. ! ACLOCAL = @ACLOCAL@ ! AUTOCONF = @AUTOCONF@ ! AUTOMAKE = @AUTOMAKE@ ! AUTOHEADER = @AUTOHEADER@ ! INSTALL = @INSTALL@ ! INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) ! INSTALL_DATA = @INSTALL_DATA@ ! INSTALL_SCRIPT = @INSTALL_SCRIPT@ ! transform = @program_transform_name@ ! NORMAL_INSTALL = : PRE_INSTALL = : --- 13,33 ---- # PARTICULAR PURPOSE. ! @SET_MAKE@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. ! am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ ! install_sh_DATA = $(install_sh) -c -m 644 ! install_sh_PROGRAM = $(install_sh) -c ! install_sh_SCRIPT = $(install_sh) -c ! INSTALL_HEADER = $(INSTALL_DATA) ! transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : *************** *** 58,69 **** PRE_UNINSTALL = : POST_UNINSTALL = : - host_alias = @host_alias@ host_triplet = @host@ AR = @AR@ ! AS = @AS@ CC = @CC@ CPP = @CPP@ ! DLLTOOL = @DLLTOOL@ ECHO = @ECHO@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ --- 36,58 ---- PRE_UNINSTALL = : POST_UNINSTALL = : host_triplet = @host@ + ACLOCAL = @ACLOCAL@ + AMTAR = @AMTAR@ AR = @AR@ ! AUTOCONF = @AUTOCONF@ ! AUTOHEADER = @AUTOHEADER@ ! AUTOMAKE = @AUTOMAKE@ ! AWK = @AWK@ CC = @CC@ + CFLAGS = @CFLAGS@ CPP = @CPP@ ! CPPFLAGS = @CPPFLAGS@ ! CYGPATH_W = @CYGPATH_W@ ! DEFS = @DEFS@ ECHO = @ECHO@ + ECHO_C = @ECHO_C@ + ECHO_N = @ECHO_N@ + ECHO_T = @ECHO_T@ + EGREP = @EGREP@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ *************** *** 71,88 **** GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ - OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ STRIP = @STRIP@ VERSION = @VERSION@ ! noinst_LTLIBRARIES = libgslblas.la --- 60,144 ---- GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ + HAVE_AIX_IEEE_INTERFACE = @HAVE_AIX_IEEE_INTERFACE@ + HAVE_DARWIN_IEEE_INTERFACE = @HAVE_DARWIN_IEEE_INTERFACE@ + HAVE_EXTENDED_PRECISION_REGISTERS = @HAVE_EXTENDED_PRECISION_REGISTERS@ + HAVE_FREEBSD_IEEE_INTERFACE = @HAVE_FREEBSD_IEEE_INTERFACE@ + HAVE_GNUM68K_IEEE_INTERFACE = @HAVE_GNUM68K_IEEE_INTERFACE@ + HAVE_GNUPPC_IEEE_INTERFACE = @HAVE_GNUPPC_IEEE_INTERFACE@ + HAVE_GNUSPARC_IEEE_INTERFACE = @HAVE_GNUSPARC_IEEE_INTERFACE@ + HAVE_GNUX86_IEEE_INTERFACE = @HAVE_GNUX86_IEEE_INTERFACE@ + HAVE_HPUX11_IEEE_INTERFACE = @HAVE_HPUX11_IEEE_INTERFACE@ + HAVE_HPUX_IEEE_INTERFACE = @HAVE_HPUX_IEEE_INTERFACE@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ + HAVE_IRIX_IEEE_INTERFACE = @HAVE_IRIX_IEEE_INTERFACE@ + HAVE_NETBSD_IEEE_INTERFACE = @HAVE_NETBSD_IEEE_INTERFACE@ + HAVE_OPENBSD_IEEE_INTERFACE = @HAVE_OPENBSD_IEEE_INTERFACE@ + HAVE_OS2EMX_IEEE_INTERFACE = @HAVE_OS2EMX_IEEE_INTERFACE@ + HAVE_PRINTF_LONGDOUBLE = @HAVE_PRINTF_LONGDOUBLE@ + HAVE_SOLARIS_IEEE_INTERFACE = @HAVE_SOLARIS_IEEE_INTERFACE@ + HAVE_SUNOS4_IEEE_INTERFACE = @HAVE_SUNOS4_IEEE_INTERFACE@ + HAVE_TRU64_IEEE_INTERFACE = @HAVE_TRU64_IEEE_INTERFACE@ + INSTALL_DATA = @INSTALL_DATA@ + INSTALL_PROGRAM = @INSTALL_PROGRAM@ + INSTALL_SCRIPT = @INSTALL_SCRIPT@ + INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ + LDFLAGS = @LDFLAGS@ + LIBOBJS = @LIBOBJS@ + LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ + LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ + MAINTAINER_MODE_FALSE = @MAINTAINER_MODE_FALSE@ + MAINTAINER_MODE_TRUE = @MAINTAINER_MODE_TRUE@ MAKEINFO = @MAKEINFO@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ + PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ + PACKAGE_NAME = @PACKAGE_NAME@ + PACKAGE_STRING = @PACKAGE_STRING@ + PACKAGE_TARNAME = @PACKAGE_TARNAME@ + PACKAGE_VERSION = @PACKAGE_VERSION@ + PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ + RELEASED = @RELEASED@ + SET_MAKE = @SET_MAKE@ + SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ ! ac_ct_AR = @ac_ct_AR@ ! ac_ct_CC = @ac_ct_CC@ ! ac_ct_RANLIB = @ac_ct_RANLIB@ ! ac_ct_STRIP = @ac_ct_STRIP@ ! am__leading_dot = @am__leading_dot@ ! bindir = @bindir@ ! build = @build@ ! build_alias = @build_alias@ ! build_cpu = @build_cpu@ ! build_os = @build_os@ ! build_vendor = @build_vendor@ ! datadir = @datadir@ ! exec_prefix = @exec_prefix@ ! host = @host@ ! host_alias = @host_alias@ ! host_cpu = @host_cpu@ ! host_os = @host_os@ ! host_vendor = @host_vendor@ ! includedir = @includedir@ ! infodir = @infodir@ ! install_sh = @install_sh@ ! libdir = @libdir@ ! libexecdir = @libexecdir@ ! localstatedir = @localstatedir@ ! mandir = @mandir@ ! oldincludedir = @oldincludedir@ ! prefix = @prefix@ ! program_transform_name = @program_transform_name@ ! sbindir = @sbindir@ ! sharedstatedir = @sharedstatedir@ ! sysconfdir = @sysconfdir@ ! target_alias = @target_alias@ noinst_LTLIBRARIES = libgslblas.la *************** *** 92,178 **** libgslblas_la_SOURCES = blas.c mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs ! CONFIG_HEADER = ../config.h ! CONFIG_CLEAN_FILES = ! LTLIBRARIES = $(noinst_LTLIBRARIES) ! ! ! DEFS = @DEFS@ -I. -I$(srcdir) -I.. ! CPPFLAGS = @CPPFLAGS@ ! LDFLAGS = @LDFLAGS@ ! LIBS = @LIBS@ ! libgslblas_la_LDFLAGS = ! libgslblas_la_LIBADD = ! libgslblas_la_OBJECTS = blas.lo ! CFLAGS = @CFLAGS@ ! COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ ! HEADERS = $(pkginclude_HEADERS) ! ! DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO ! ! ! DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) ! TAR = tar ! GZIP_ENV = --best SOURCES = $(libgslblas_la_SOURCES) - OBJECTS = $(libgslblas_la_OBJECTS) - - all: all-redirect - .SUFFIXES: - .SUFFIXES: .S .c .lo .o .obj .s - $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) - cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps blas/Makefile - - Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status - cd $(top_builddir) \ - && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status ! mostlyclean-noinstLTLIBRARIES: clean-noinstLTLIBRARIES: -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) ! ! distclean-noinstLTLIBRARIES: ! ! maintainer-clean-noinstLTLIBRARIES: ! ! .c.o: ! $(COMPILE) -c $< ! ! # FIXME: We should only use cygpath when building on Windows, ! # and only if it is available. ! .c.obj: ! $(COMPILE) -c `cygpath -w $<` ! ! .s.o: ! $(COMPILE) -c $< ! ! .S.o: ! $(COMPILE) -c $< mostlyclean-compile: ! -rm -f *.o core *.core ! -rm -f *.$(OBJEXT) ! ! clean-compile: distclean-compile: -rm -f *.tab.c ! maintainer-clean-compile: ! ! .c.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! .s.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! .S.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< mostlyclean-libtool: --- 148,215 ---- libgslblas_la_SOURCES = blas.c + subdir = blas + ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs ! CONFIG_HEADER = $(top_builddir)/config.h ! CONFIG_CLEAN_FILES = ! LTLIBRARIES = $(noinst_LTLIBRARIES) ! ! libgslblas_la_LDFLAGS = ! libgslblas_la_LIBADD = ! am_libgslblas_la_OBJECTS = blas.lo ! libgslblas_la_OBJECTS = $(am_libgslblas_la_OBJECTS) ! ! DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) ! depcomp = ! am__depfiles_maybe = ! COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ ! $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) \ ! $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ ! $(AM_LDFLAGS) $(LDFLAGS) -o $@ ! DIST_SOURCES = $(libgslblas_la_SOURCES) ! HEADERS = $(pkginclude_HEADERS) ! DIST_COMMON = $(pkginclude_HEADERS) ChangeLog Makefile.am Makefile.in \ ! TODO SOURCES = $(libgslblas_la_SOURCES) + all: all-am ! .SUFFIXES: ! .SUFFIXES: .c .lo .o .obj ! $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.ac $(ACLOCAL_M4) ! cd $(top_srcdir) && \ ! $(AUTOMAKE) --gnu blas/Makefile ! Makefile: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.in $(top_builddir)/config.status ! cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe) clean-noinstLTLIBRARIES: -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) ! @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \ ! dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ ! test "$$dir" = "$$p" && dir=.; \ ! echo "rm -f \"$${dir}/so_locations\""; \ ! rm -f "$${dir}/so_locations"; \ ! done ! libgslblas.la: $(libgslblas_la_OBJECTS) $(libgslblas_la_DEPENDENCIES) ! $(LINK) $(libgslblas_la_LDFLAGS) $(libgslblas_la_OBJECTS) $(libgslblas_la_LIBADD) $(LIBS) mostlyclean-compile: ! -rm -f *.$(OBJEXT) core *.core distclean-compile: -rm -f *.tab.c ! .c.o: ! $(COMPILE) -c `test -f '$<' || echo '$(srcdir)/'`$< ! .c.obj: ! $(COMPILE) -c `if test -f '$<'; then $(CYGPATH_W) '$<'; else $(CYGPATH_W) '$(srcdir)/$<'; fi` ! .c.lo: ! $(LTCOMPILE) -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$< mostlyclean-libtool: *************** *** 183,279 **** distclean-libtool: ! ! maintainer-clean-libtool: ! ! libgslblas.la: $(libgslblas_la_OBJECTS) $(libgslblas_la_DEPENDENCIES) ! $(LINK) $(libgslblas_la_LDFLAGS) $(libgslblas_la_OBJECTS) $(libgslblas_la_LIBADD) $(LIBS) ! install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ ! echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p"; \ ! $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$p; \ done tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! here=`pwd` && cd $(srcdir) \ ! && mkid -f$$here/ID $$unique $(LISP) ! TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ ! || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) ! ! mostlyclean-tags: ! ! clean-tags: distclean-tags: ! -rm -f TAGS ID ! ! maintainer-clean-tags: ! distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) ! ! subdir = blas distdir: $(DISTFILES) ! @for file in $(DISTFILES); do \ ! d=$(srcdir); \ if test -d $$d/$$file; then \ ! cp -pr $$d/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ ! || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ ! || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done - - info-am: - info: info-am - dvi-am: - dvi: dvi-am check-am: all-am check: check-am ! installcheck-am: ! installcheck: installcheck-am ! install-exec-am: ! install-exec: install-exec-am ! install-data-am: install-pkgincludeHEADERS install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am - install: install-am - uninstall-am: uninstall-pkgincludeHEADERS - uninstall: uninstall-am - all-am: Makefile $(LTLIBRARIES) $(HEADERS) - all-redirect: all-am - install-strip: - $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install - installdirs: - $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) - mostlyclean-generic: --- 220,349 ---- distclean-libtool: ! -rm -f libtool ! uninstall-info-am: ! pkgincludeHEADERS_INSTALL = $(INSTALL_HEADER) install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f"; \ ! $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " rm -f $(DESTDIR)$(pkgincludedir)/$$f"; \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$f; \ done + ETAGS = etags + ETAGSFLAGS = + + CTAGS = ctags + CTAGSFLAGS = + tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! mkid -fID $$unique ! TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$tags$$unique" \ ! || $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ ! $$tags $$unique ! ! ctags: CTAGS ! CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) ! tags=; \ ! here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ ! END { for (i in files) print i; }'`; \ ! test -z "$(CTAGS_ARGS)$$tags$$unique" \ ! || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ ! $$tags $$unique ! ! GTAGS: ! here=`$(am__cd) $(top_builddir) && pwd` \ ! && cd $(top_srcdir) \ ! && gtags -i $(GTAGS_ARGS) $$here distclean-tags: ! -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags ! DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ! top_distdir = .. ! distdir = $(top_distdir)/$(PACKAGE)-$(VERSION) distdir: $(DISTFILES) ! @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ ! topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ ! list='$(DISTFILES)'; for file in $$list; do \ ! case $$file in \ ! $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ ! $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ ! esac; \ ! if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ ! dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ ! if test "$$dir" != "$$file" && test "$$dir" != "."; then \ ! dir="/$$dir"; \ ! $(mkinstalldirs) "$(distdir)$$dir"; \ ! else \ ! dir=''; \ ! fi; \ if test -d $$d/$$file; then \ ! if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ ! cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ ! fi; \ ! cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ ! || cp -p $$d/$$file $(distdir)/$$file \ ! || exit 1; \ fi; \ done check-am: all-am check: check-am ! all-am: Makefile $(LTLIBRARIES) $(HEADERS) ! installdirs: ! $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) ! install: install-am ! install-exec: install-exec-am install-data: install-data-am + uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + installcheck: installcheck-am + install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: *************** *** 282,327 **** distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: ! mostlyclean-am: mostlyclean-noinstLTLIBRARIES mostlyclean-compile \ ! mostlyclean-libtool mostlyclean-tags \ ! mostlyclean-generic ! mostlyclean: mostlyclean-am ! clean-am: clean-noinstLTLIBRARIES clean-compile clean-libtool \ ! clean-tags clean-generic mostlyclean-am ! clean: clean-am ! distclean-am: distclean-noinstLTLIBRARIES distclean-compile \ ! distclean-libtool distclean-tags distclean-generic \ ! clean-am ! -rm -f libtool ! distclean: distclean-am ! maintainer-clean-am: maintainer-clean-noinstLTLIBRARIES \ ! maintainer-clean-compile maintainer-clean-libtool \ ! maintainer-clean-tags maintainer-clean-generic \ ! distclean-am ! @echo "This command is intended for maintainers to use;" ! @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am ! .PHONY: mostlyclean-noinstLTLIBRARIES distclean-noinstLTLIBRARIES \ ! clean-noinstLTLIBRARIES maintainer-clean-noinstLTLIBRARIES \ ! mostlyclean-compile distclean-compile clean-compile \ ! maintainer-clean-compile mostlyclean-libtool distclean-libtool \ ! clean-libtool maintainer-clean-libtool uninstall-pkgincludeHEADERS \ ! install-pkgincludeHEADERS tags mostlyclean-tags distclean-tags \ ! clean-tags maintainer-clean-tags distdir info-am info dvi-am dvi check \ ! check-am installcheck-am installcheck install-exec-am install-exec \ ! install-data-am install-data install-am install uninstall-am uninstall \ ! all-redirect all-am all installdirs mostlyclean-generic \ ! distclean-generic clean-generic maintainer-clean-generic clean \ ! mostlyclean distclean maintainer-clean --- 352,418 ---- distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) maintainer-clean-generic: ! @echo "This command is intended for maintainers to use" ! @echo "it deletes files that may require special tools to rebuild." ! clean: clean-am ! clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \ ! mostlyclean-am ! distclean: distclean-am ! distclean-am: clean-am distclean-compile distclean-generic \ ! distclean-libtool distclean-tags ! dvi: dvi-am ! dvi-am: ! info: info-am ! ! info-am: ! ! install-data-am: install-pkgincludeHEADERS ! ! install-exec-am: ! ! install-info: install-info-am ! ! install-man: ! ! installcheck-am: maintainer-clean: maintainer-clean-am ! maintainer-clean-am: distclean-am maintainer-clean-generic ! ! mostlyclean: mostlyclean-am ! ! mostlyclean-am: mostlyclean-compile mostlyclean-generic \ ! mostlyclean-libtool ! ! pdf: pdf-am ! ! pdf-am: ! ! ps: ps-am ! ! ps-am: ! ! uninstall-am: uninstall-info-am uninstall-pkgincludeHEADERS ! ! .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ ! clean-libtool clean-noinstLTLIBRARIES ctags distclean \ ! distclean-compile distclean-generic distclean-libtool \ ! distclean-tags distdir dvi dvi-am info info-am install \ ! install-am install-data install-data-am install-exec \ ! install-exec-am install-info install-info-am install-man \ ! install-pkgincludeHEADERS install-strip installcheck \ ! installcheck-am installdirs maintainer-clean \ ! maintainer-clean-generic mostlyclean mostlyclean-compile \ ! mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ ! tags uninstall uninstall-am uninstall-info-am \ ! uninstall-pkgincludeHEADERS *************** *** 330,334 **** #test_LDADD = libgslblas.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la #test_SOURCES = test_blas_raw.c test_cases.c test_cases.h - # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. --- 421,424 ---- diff -x.info* -rc2P gsl-1.3/blas/blas.c gsl-1.4/blas/blas.c *** gsl-1.3/blas/blas.c Mon Mar 18 19:38:44 2002 --- gsl-1.4/blas/blas.c Fri Jul 25 15:18:07 2003 *************** *** 44,54 **** int gsl_blas_sdsdot (float alpha, const gsl_vector_float * X, ! const gsl_vector_float * Y, float *result) { if (X->size == Y->size) { *result = ! cblas_sdsdot (INT (X->size), alpha, X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 44,54 ---- int gsl_blas_sdsdot (float alpha, const gsl_vector_float * X, ! const gsl_vector_float * Y, float *result) { if (X->size == Y->size) { *result = ! cblas_sdsdot (INT (X->size), alpha, X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 61,71 **** int gsl_blas_dsdot (const gsl_vector_float * X, const gsl_vector_float * Y, ! double *result) { if (X->size == Y->size) { *result = ! cblas_dsdot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 61,71 ---- int gsl_blas_dsdot (const gsl_vector_float * X, const gsl_vector_float * Y, ! double *result) { if (X->size == Y->size) { *result = ! cblas_dsdot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 78,88 **** int gsl_blas_sdot (const gsl_vector_float * X, const gsl_vector_float * Y, ! float *result) { if (X->size == Y->size) { *result = ! cblas_sdot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 78,88 ---- int gsl_blas_sdot (const gsl_vector_float * X, const gsl_vector_float * Y, ! float *result) { if (X->size == Y->size) { *result = ! cblas_sdot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 99,104 **** { *result = ! cblas_ddot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 99,104 ---- { *result = ! cblas_ddot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 112,121 **** int gsl_blas_cdotu (const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, gsl_complex_float * dotu) { if (X->size == Y->size) { cblas_cdotu_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotu)); return GSL_SUCCESS; } --- 112,121 ---- int gsl_blas_cdotu (const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, gsl_complex_float * dotu) { if (X->size == Y->size) { cblas_cdotu_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotu)); return GSL_SUCCESS; } *************** *** 129,138 **** int gsl_blas_cdotc (const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, gsl_complex_float * dotc) { if (X->size == Y->size) { cblas_cdotc_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotc)); return GSL_SUCCESS; } --- 129,138 ---- int gsl_blas_cdotc (const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, gsl_complex_float * dotc) { if (X->size == Y->size) { cblas_cdotc_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotc)); return GSL_SUCCESS; } *************** *** 146,155 **** int gsl_blas_zdotu (const gsl_vector_complex * X, const gsl_vector_complex * Y, ! gsl_complex * dotu) { if (X->size == Y->size) { cblas_zdotu_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotu)); return GSL_SUCCESS; } --- 146,155 ---- int gsl_blas_zdotu (const gsl_vector_complex * X, const gsl_vector_complex * Y, ! gsl_complex * dotu) { if (X->size == Y->size) { cblas_zdotu_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotu)); return GSL_SUCCESS; } *************** *** 163,172 **** int gsl_blas_zdotc (const gsl_vector_complex * X, const gsl_vector_complex * Y, ! gsl_complex * dotc) { if (X->size == Y->size) { cblas_zdotc_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotc)); return GSL_SUCCESS; } --- 163,172 ---- int gsl_blas_zdotc (const gsl_vector_complex * X, const gsl_vector_complex * Y, ! gsl_complex * dotc) { if (X->size == Y->size) { cblas_zdotc_sub (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), GSL_COMPLEX_P (dotc)); return GSL_SUCCESS; } *************** *** 264,268 **** { cblas_sswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 264,268 ---- { cblas_sswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 279,283 **** { cblas_dswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 279,283 ---- { cblas_dswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 294,298 **** { cblas_cswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 294,298 ---- { cblas_cswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 309,313 **** { cblas_zswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 309,313 ---- { cblas_zswap (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 327,331 **** { cblas_scopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 327,331 ---- { cblas_scopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 342,346 **** { cblas_dcopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 342,346 ---- { cblas_dcopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 353,362 **** int gsl_blas_ccopy (const gsl_vector_complex_float * X, ! gsl_vector_complex_float * Y) { if (X->size == Y->size) { cblas_ccopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 353,362 ---- int gsl_blas_ccopy (const gsl_vector_complex_float * X, ! gsl_vector_complex_float * Y) { if (X->size == Y->size) { cblas_ccopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 373,377 **** { cblas_zcopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 373,377 ---- { cblas_zcopy (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 391,395 **** { cblas_saxpy (INT (X->size), alpha, X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 391,395 ---- { cblas_saxpy (INT (X->size), alpha, X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 406,410 **** { cblas_daxpy (INT (X->size), alpha, X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 406,410 ---- { cblas_daxpy (INT (X->size), alpha, X->data, INT (X->stride), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 417,427 **** int gsl_blas_caxpy (const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! gsl_vector_complex_float * Y) { if (X->size == Y->size) { cblas_caxpy (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride)); return GSL_SUCCESS; } --- 417,427 ---- int gsl_blas_caxpy (const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! gsl_vector_complex_float * Y) { if (X->size == Y->size) { cblas_caxpy (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride)); return GSL_SUCCESS; } *************** *** 434,443 **** int gsl_blas_zaxpy (const gsl_complex alpha, const gsl_vector_complex * X, ! gsl_vector_complex * Y) { if (X->size == Y->size) { cblas_zaxpy (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride)); return GSL_SUCCESS; } --- 434,443 ---- int gsl_blas_zaxpy (const gsl_complex alpha, const gsl_vector_complex * X, ! gsl_vector_complex * Y) { if (X->size == Y->size) { cblas_zaxpy (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride)); return GSL_SUCCESS; } *************** *** 472,476 **** { cblas_srot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), c, s); return GSL_SUCCESS; } --- 472,476 ---- { cblas_srot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), c, s); return GSL_SUCCESS; } *************** *** 487,491 **** { cblas_drot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), c, s); return GSL_SUCCESS; } --- 487,491 ---- { cblas_drot (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), c, s); return GSL_SUCCESS; } *************** *** 522,526 **** { cblas_srotm (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), P); return GSL_SUCCESS; } --- 522,526 ---- { cblas_srotm (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), P); return GSL_SUCCESS; } *************** *** 537,541 **** { cblas_drotm (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), P); return GSL_SUCCESS; } --- 537,541 ---- { cblas_drotm (INT (X->size), X->data, INT (X->stride), Y->data, ! INT (Y->stride), P); return GSL_SUCCESS; } *************** *** 565,569 **** { cblas_cscal (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride)); } --- 565,569 ---- { cblas_cscal (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride)); } *************** *** 572,576 **** { cblas_zscal (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride)); } --- 572,576 ---- { cblas_zscal (INT (X->size), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride)); } *************** *** 596,601 **** int gsl_blas_sgemv (CBLAS_TRANSPOSE_t TransA, float alpha, ! const gsl_matrix_float * A, const gsl_vector_float * X, ! float beta, gsl_vector_float * Y) { const size_t M = A->size1; --- 596,601 ---- int gsl_blas_sgemv (CBLAS_TRANSPOSE_t TransA, float alpha, ! const gsl_matrix_float * A, const gsl_vector_float * X, ! float beta, gsl_vector_float * Y) { const size_t M = A->size1; *************** *** 606,611 **** { cblas_sgemv (CblasRowMajor, TransA, INT (M), INT (N), alpha, A->data, ! INT (A->tda), X->data, INT (X->stride), beta, Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 606,611 ---- { cblas_sgemv (CblasRowMajor, TransA, INT (M), INT (N), alpha, A->data, ! INT (A->tda), X->data, INT (X->stride), beta, Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 619,623 **** int gsl_blas_dgemv (CBLAS_TRANSPOSE_t TransA, double alpha, const gsl_matrix * A, ! const gsl_vector * X, double beta, gsl_vector * Y) { const size_t M = A->size1; --- 619,623 ---- int gsl_blas_dgemv (CBLAS_TRANSPOSE_t TransA, double alpha, const gsl_matrix * A, ! const gsl_vector * X, double beta, gsl_vector * Y) { const size_t M = A->size1; *************** *** 628,633 **** { cblas_dgemv (CblasRowMajor, TransA, INT (M), INT (N), alpha, A->data, ! INT (A->tda), X->data, INT (X->stride), beta, Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 628,633 ---- { cblas_dgemv (CblasRowMajor, TransA, INT (M), INT (N), alpha, A->data, ! INT (A->tda), X->data, INT (X->stride), beta, Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 641,647 **** int gsl_blas_cgemv (CBLAS_TRANSPOSE_t TransA, const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_vector_complex_float * X, ! const gsl_complex_float beta, gsl_vector_complex_float * Y) { const size_t M = A->size1; --- 641,647 ---- int gsl_blas_cgemv (CBLAS_TRANSPOSE_t TransA, const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_vector_complex_float * X, ! const gsl_complex_float beta, gsl_vector_complex_float * Y) { const size_t M = A->size1; *************** *** 653,659 **** { cblas_cgemv (CblasRowMajor, TransA, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), X->data, ! INT (X->stride), GSL_COMPLEX_P (&beta), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 653,659 ---- { cblas_cgemv (CblasRowMajor, TransA, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), X->data, ! INT (X->stride), GSL_COMPLEX_P (&beta), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 667,672 **** int gsl_blas_zgemv (CBLAS_TRANSPOSE_t TransA, const gsl_complex alpha, ! const gsl_matrix_complex * A, const gsl_vector_complex * X, ! const gsl_complex beta, gsl_vector_complex * Y) { const size_t M = A->size1; --- 667,672 ---- int gsl_blas_zgemv (CBLAS_TRANSPOSE_t TransA, const gsl_complex alpha, ! const gsl_matrix_complex * A, const gsl_vector_complex * X, ! const gsl_complex beta, gsl_vector_complex * Y) { const size_t M = A->size1; *************** *** 678,684 **** { cblas_zgemv (CblasRowMajor, TransA, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), X->data, ! INT (X->stride), GSL_COMPLEX_P (&beta), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } --- 678,684 ---- { cblas_zgemv (CblasRowMajor, TransA, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), X->data, ! INT (X->stride), GSL_COMPLEX_P (&beta), Y->data, ! INT (Y->stride)); return GSL_SUCCESS; } *************** *** 695,701 **** int gsl_blas_chemv (CBLAS_UPLO_t Uplo, const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_vector_complex_float * X, ! const gsl_complex_float beta, gsl_vector_complex_float * Y) { const size_t M = A->size1; --- 695,701 ---- int gsl_blas_chemv (CBLAS_UPLO_t Uplo, const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_vector_complex_float * X, ! const gsl_complex_float beta, gsl_vector_complex_float * Y) { const size_t M = A->size1; *************** *** 712,717 **** cblas_chemv (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), A->data, ! INT (A->tda), X->data, INT (X->stride), GSL_COMPLEX_P (&beta), ! Y->data, INT (Y->stride)); return GSL_SUCCESS; } --- 712,717 ---- cblas_chemv (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), A->data, ! INT (A->tda), X->data, INT (X->stride), GSL_COMPLEX_P (&beta), ! Y->data, INT (Y->stride)); return GSL_SUCCESS; } *************** *** 719,724 **** int gsl_blas_zhemv (CBLAS_UPLO_t Uplo, const gsl_complex alpha, ! const gsl_matrix_complex * A, const gsl_vector_complex * X, ! const gsl_complex beta, gsl_vector_complex * Y) { const size_t M = A->size1; --- 719,724 ---- int gsl_blas_zhemv (CBLAS_UPLO_t Uplo, const gsl_complex alpha, ! const gsl_matrix_complex * A, const gsl_vector_complex * X, ! const gsl_complex beta, gsl_vector_complex * Y) { const size_t M = A->size1; *************** *** 735,740 **** cblas_zhemv (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), A->data, ! INT (A->tda), X->data, INT (X->stride), GSL_COMPLEX_P (&beta), ! Y->data, INT (Y->stride)); return GSL_SUCCESS; } --- 735,740 ---- cblas_zhemv (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), A->data, ! INT (A->tda), X->data, INT (X->stride), GSL_COMPLEX_P (&beta), ! Y->data, INT (Y->stride)); return GSL_SUCCESS; } *************** *** 745,749 **** int gsl_blas_ssymv (CBLAS_UPLO_t Uplo, float alpha, const gsl_matrix_float * A, ! const gsl_vector_float * X, float beta, gsl_vector_float * Y) { const size_t M = A->size1; --- 745,749 ---- int gsl_blas_ssymv (CBLAS_UPLO_t Uplo, float alpha, const gsl_matrix_float * A, ! const gsl_vector_float * X, float beta, gsl_vector_float * Y) { const size_t M = A->size1; *************** *** 760,764 **** cblas_ssymv (CblasRowMajor, Uplo, INT (N), alpha, A->data, INT (A->tda), ! X->data, INT (X->stride), beta, Y->data, INT (Y->stride)); return GSL_SUCCESS; } --- 760,764 ---- cblas_ssymv (CblasRowMajor, Uplo, INT (N), alpha, A->data, INT (A->tda), ! X->data, INT (X->stride), beta, Y->data, INT (Y->stride)); return GSL_SUCCESS; } *************** *** 766,770 **** int gsl_blas_dsymv (CBLAS_UPLO_t Uplo, double alpha, const gsl_matrix * A, ! const gsl_vector * X, double beta, gsl_vector * Y) { const size_t M = A->size1; --- 766,770 ---- int gsl_blas_dsymv (CBLAS_UPLO_t Uplo, double alpha, const gsl_matrix * A, ! const gsl_vector * X, double beta, gsl_vector * Y) { const size_t M = A->size1; *************** *** 781,785 **** cblas_dsymv (CblasRowMajor, Uplo, INT (N), alpha, A->data, INT (A->tda), ! X->data, INT (X->stride), beta, Y->data, INT (Y->stride)); return GSL_SUCCESS; } --- 781,785 ---- cblas_dsymv (CblasRowMajor, Uplo, INT (N), alpha, A->data, INT (A->tda), ! X->data, INT (X->stride), beta, Y->data, INT (Y->stride)); return GSL_SUCCESS; } *************** *** 790,795 **** int gsl_blas_strmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_float * A, ! gsl_vector_float * X) { const size_t M = A->size1; --- 790,795 ---- int gsl_blas_strmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_float * A, ! gsl_vector_float * X) { const size_t M = A->size1; *************** *** 806,810 **** cblas_strmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 806,810 ---- cblas_strmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 813,817 **** int gsl_blas_dtrmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix * A, gsl_vector * X) { const size_t M = A->size1; --- 813,817 ---- int gsl_blas_dtrmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix * A, gsl_vector * X) { const size_t M = A->size1; *************** *** 828,832 **** cblas_dtrmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 828,832 ---- cblas_dtrmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 835,840 **** int gsl_blas_ctrmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex_float * A, ! gsl_vector_complex_float * X) { const size_t M = A->size1; --- 835,840 ---- int gsl_blas_ctrmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex_float * A, ! gsl_vector_complex_float * X) { const size_t M = A->size1; *************** *** 851,855 **** cblas_ctrmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 851,855 ---- cblas_ctrmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 858,863 **** int gsl_blas_ztrmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex * A, ! gsl_vector_complex * X) { const size_t M = A->size1; --- 858,863 ---- int gsl_blas_ztrmv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex * A, ! gsl_vector_complex * X) { const size_t M = A->size1; *************** *** 874,878 **** cblas_ztrmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 874,878 ---- cblas_ztrmv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 883,888 **** int gsl_blas_strsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_float * A, ! gsl_vector_float * X) { const size_t M = A->size1; --- 883,888 ---- int gsl_blas_strsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_float * A, ! gsl_vector_float * X) { const size_t M = A->size1; *************** *** 899,903 **** cblas_strsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 899,903 ---- cblas_strsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 906,910 **** int gsl_blas_dtrsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix * A, gsl_vector * X) { const size_t M = A->size1; --- 906,910 ---- int gsl_blas_dtrsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix * A, gsl_vector * X) { const size_t M = A->size1; *************** *** 921,925 **** cblas_dtrsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 921,925 ---- cblas_dtrsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 928,933 **** int gsl_blas_ctrsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex_float * A, ! gsl_vector_complex_float * X) { const size_t M = A->size1; --- 928,933 ---- int gsl_blas_ctrsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex_float * A, ! gsl_vector_complex_float * X) { const size_t M = A->size1; *************** *** 944,948 **** cblas_ctrsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 944,948 ---- cblas_ctrsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 951,956 **** int gsl_blas_ztrsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex * A, ! gsl_vector_complex * X) { const size_t M = A->size1; --- 951,956 ---- int gsl_blas_ztrsv (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, ! CBLAS_DIAG_t Diag, const gsl_matrix_complex * A, ! gsl_vector_complex * X) { const size_t M = A->size1; *************** *** 967,971 **** cblas_ztrsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } --- 967,971 ---- cblas_ztrsv (CblasRowMajor, Uplo, TransA, Diag, INT (N), A->data, ! INT (A->tda), X->data, INT (X->stride)); return GSL_SUCCESS; } *************** *** 976,980 **** int gsl_blas_sger (float alpha, const gsl_vector_float * X, ! const gsl_vector_float * Y, gsl_matrix_float * A) { const size_t M = A->size1; --- 976,980 ---- int gsl_blas_sger (float alpha, const gsl_vector_float * X, ! const gsl_vector_float * Y, gsl_matrix_float * A) { const size_t M = A->size1; *************** *** 984,989 **** { cblas_sger (CblasRowMajor, INT (M), INT (N), alpha, X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } --- 984,989 ---- { cblas_sger (CblasRowMajor, INT (M), INT (N), alpha, X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } *************** *** 997,1001 **** int gsl_blas_dger (double alpha, const gsl_vector * X, const gsl_vector * Y, ! gsl_matrix * A) { const size_t M = A->size1; --- 997,1001 ---- int gsl_blas_dger (double alpha, const gsl_vector * X, const gsl_vector * Y, ! gsl_matrix * A) { const size_t M = A->size1; *************** *** 1005,1010 **** { cblas_dger (CblasRowMajor, INT (M), INT (N), alpha, X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } --- 1005,1010 ---- { cblas_dger (CblasRowMajor, INT (M), INT (N), alpha, X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } *************** *** 1020,1026 **** int gsl_blas_cgeru (const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; --- 1020,1026 ---- int gsl_blas_cgeru (const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; *************** *** 1030,1035 **** { cblas_cgeru (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1030,1035 ---- { cblas_cgeru (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1042,1046 **** int gsl_blas_zgeru (const gsl_complex alpha, const gsl_vector_complex * X, ! const gsl_vector_complex * Y, gsl_matrix_complex * A) { const size_t M = A->size1; --- 1042,1046 ---- int gsl_blas_zgeru (const gsl_complex alpha, const gsl_vector_complex * X, ! const gsl_vector_complex * Y, gsl_matrix_complex * A) { const size_t M = A->size1; *************** *** 1050,1055 **** { cblas_zgeru (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1050,1055 ---- { cblas_zgeru (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1065,1071 **** int gsl_blas_cgerc (const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; --- 1065,1071 ---- int gsl_blas_cgerc (const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; *************** *** 1075,1080 **** { cblas_cgerc (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1075,1080 ---- { cblas_cgerc (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1088,1092 **** int gsl_blas_zgerc (const gsl_complex alpha, const gsl_vector_complex * X, ! const gsl_vector_complex * Y, gsl_matrix_complex * A) { const size_t M = A->size1; --- 1088,1092 ---- int gsl_blas_zgerc (const gsl_complex alpha, const gsl_vector_complex * X, ! const gsl_vector_complex * Y, gsl_matrix_complex * A) { const size_t M = A->size1; *************** *** 1096,1101 **** { cblas_zgerc (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1096,1101 ---- { cblas_zgerc (CblasRowMajor, INT (M), INT (N), GSL_COMPLEX_P (&alpha), ! X->data, INT (X->stride), Y->data, INT (Y->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1110,1115 **** int gsl_blas_cher (CBLAS_UPLO_t Uplo, float alpha, ! const gsl_vector_complex_float * X, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; --- 1110,1115 ---- int gsl_blas_cher (CBLAS_UPLO_t Uplo, float alpha, ! const gsl_vector_complex_float * X, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; *************** *** 1126,1130 **** cblas_cher (CblasRowMajor, Uplo, INT (M), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1126,1130 ---- cblas_cher (CblasRowMajor, Uplo, INT (M), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1133,1137 **** int gsl_blas_zher (CBLAS_UPLO_t Uplo, double alpha, const gsl_vector_complex * X, ! gsl_matrix_complex * A) { const size_t M = A->size1; --- 1133,1137 ---- int gsl_blas_zher (CBLAS_UPLO_t Uplo, double alpha, const gsl_vector_complex * X, ! gsl_matrix_complex * A) { const size_t M = A->size1; *************** *** 1148,1152 **** cblas_zher (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1148,1152 ---- cblas_zher (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1157,1163 **** int gsl_blas_cher2 (CBLAS_UPLO_t Uplo, const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; --- 1157,1163 ---- int gsl_blas_cher2 (CBLAS_UPLO_t Uplo, const gsl_complex_float alpha, ! const gsl_vector_complex_float * X, ! const gsl_vector_complex_float * Y, ! gsl_matrix_complex_float * A) { const size_t M = A->size1; *************** *** 1174,1179 **** cblas_cher2 (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } --- 1174,1179 ---- cblas_cher2 (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } *************** *** 1182,1187 **** int gsl_blas_zher2 (CBLAS_UPLO_t Uplo, const gsl_complex alpha, ! const gsl_vector_complex * X, const gsl_vector_complex * Y, ! gsl_matrix_complex * A) { const size_t M = A->size1; --- 1182,1187 ---- int gsl_blas_zher2 (CBLAS_UPLO_t Uplo, const gsl_complex alpha, ! const gsl_vector_complex * X, const gsl_vector_complex * Y, ! gsl_matrix_complex * A) { const size_t M = A->size1; *************** *** 1198,1203 **** cblas_zher2 (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } --- 1198,1203 ---- cblas_zher2 (CblasRowMajor, Uplo, INT (N), GSL_COMPLEX_P (&alpha), X->data, ! INT (X->stride), Y->data, INT (Y->stride), A->data, ! INT (A->tda)); return GSL_SUCCESS; } *************** *** 1208,1212 **** int gsl_blas_ssyr (CBLAS_UPLO_t Uplo, float alpha, const gsl_vector_float * X, ! gsl_matrix_float * A) { const size_t M = A->size1; --- 1208,1212 ---- int gsl_blas_ssyr (CBLAS_UPLO_t Uplo, float alpha, const gsl_vector_float * X, ! gsl_matrix_float * A) { const size_t M = A->size1; *************** *** 1223,1227 **** cblas_ssyr (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1223,1227 ---- cblas_ssyr (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1230,1234 **** int gsl_blas_dsyr (CBLAS_UPLO_t Uplo, double alpha, const gsl_vector * X, ! gsl_matrix * A) { const size_t M = A->size1; --- 1230,1234 ---- int gsl_blas_dsyr (CBLAS_UPLO_t Uplo, double alpha, const gsl_vector * X, ! gsl_matrix * A) { const size_t M = A->size1; *************** *** 1245,1249 **** cblas_dsyr (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1245,1249 ---- cblas_dsyr (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1254,1258 **** int gsl_blas_ssyr2 (CBLAS_UPLO_t Uplo, float alpha, const gsl_vector_float * X, ! const gsl_vector_float * Y, gsl_matrix_float * A) { const size_t M = A->size1; --- 1254,1258 ---- int gsl_blas_ssyr2 (CBLAS_UPLO_t Uplo, float alpha, const gsl_vector_float * X, ! const gsl_vector_float * Y, gsl_matrix_float * A) { const size_t M = A->size1; *************** *** 1269,1273 **** cblas_ssyr2 (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! Y->data, INT (Y->stride), A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1269,1273 ---- cblas_ssyr2 (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! Y->data, INT (Y->stride), A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1276,1280 **** int gsl_blas_dsyr2 (CBLAS_UPLO_t Uplo, double alpha, const gsl_vector * X, ! const gsl_vector * Y, gsl_matrix * A) { const size_t M = A->size1; --- 1276,1280 ---- int gsl_blas_dsyr2 (CBLAS_UPLO_t Uplo, double alpha, const gsl_vector * X, ! const gsl_vector * Y, gsl_matrix * A) { const size_t M = A->size1; *************** *** 1291,1295 **** cblas_dsyr2 (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! Y->data, INT (Y->stride), A->data, INT (A->tda)); return GSL_SUCCESS; } --- 1291,1295 ---- cblas_dsyr2 (CblasRowMajor, Uplo, INT (N), alpha, X->data, INT (X->stride), ! Y->data, INT (Y->stride), A->data, INT (A->tda)); return GSL_SUCCESS; } *************** *** 1307,1312 **** int gsl_blas_sgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! float alpha, const gsl_matrix_float * A, ! const gsl_matrix_float * B, float beta, gsl_matrix_float * C) { const size_t M = C->size1; --- 1307,1312 ---- int gsl_blas_sgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! float alpha, const gsl_matrix_float * A, ! const gsl_matrix_float * B, float beta, gsl_matrix_float * C) { const size_t M = C->size1; *************** *** 1317,1325 **** const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_sgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1317,1325 ---- const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_sgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1333,1338 **** int gsl_blas_dgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! double alpha, const gsl_matrix * A, const gsl_matrix * B, ! double beta, gsl_matrix * C) { const size_t M = C->size1; --- 1333,1338 ---- int gsl_blas_dgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! double alpha, const gsl_matrix * A, const gsl_matrix * B, ! double beta, gsl_matrix * C) { const size_t M = C->size1; *************** *** 1343,1351 **** const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_dgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1343,1351 ---- const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_dgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1359,1366 **** int gsl_blas_cgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1359,1366 ---- int gsl_blas_cgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1371,1380 **** const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_cgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1371,1380 ---- const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_cgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1388,1394 **** int gsl_blas_zgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; --- 1388,1394 ---- int gsl_blas_zgemm (CBLAS_TRANSPOSE_t TransA, CBLAS_TRANSPOSE_t TransB, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1399,1408 **** const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_zgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1399,1408 ---- const size_t NB = (TransB == CblasNoTrans) ? B->size2 : B->size1; ! if (M == MA && N == NB && NA == MB) /* [MxN] = [MAxNA][MBxNB] */ { cblas_zgemm (CblasRowMajor, TransA, TransB, INT (M), INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1418,1423 **** int gsl_blas_ssymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, float alpha, ! const gsl_matrix_float * A, const gsl_matrix_float * B, ! float beta, gsl_matrix_float * C) { const size_t M = C->size1; --- 1418,1423 ---- int gsl_blas_ssymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, float alpha, ! const gsl_matrix_float * A, const gsl_matrix_float * B, ! float beta, gsl_matrix_float * C) { const size_t M = C->size1; *************** *** 1437,1442 **** { cblas_ssymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), alpha, ! A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1437,1442 ---- { cblas_ssymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), alpha, ! A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1451,1456 **** int gsl_blas_dsymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, double alpha, ! const gsl_matrix * A, const gsl_matrix * B, double beta, ! gsl_matrix * C) { const size_t M = C->size1; --- 1451,1456 ---- int gsl_blas_dsymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, double alpha, ! const gsl_matrix * A, const gsl_matrix * B, double beta, ! gsl_matrix * C) { const size_t M = C->size1; *************** *** 1470,1475 **** { cblas_dsymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), alpha, ! A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1470,1475 ---- { cblas_dsymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), alpha, ! A->data, INT (A->tda), B->data, INT (B->tda), beta, ! C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1483,1490 **** int gsl_blas_csymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1483,1490 ---- int gsl_blas_csymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1504,1510 **** { cblas_csymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1504,1510 ---- { cblas_csymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1517,1523 **** int gsl_blas_zsymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; --- 1517,1523 ---- int gsl_blas_zsymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1537,1543 **** { cblas_zsymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1537,1543 ---- { cblas_zsymm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1553,1560 **** int gsl_blas_chemm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1553,1560 ---- int gsl_blas_chemm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1574,1580 **** { cblas_chemm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1574,1580 ---- { cblas_chemm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1589,1595 **** int gsl_blas_zhemm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; --- 1589,1595 ---- int gsl_blas_zhemm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1609,1615 **** { cblas_zhemm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1609,1615 ---- { cblas_zhemm (CblasRowMajor, Side, Uplo, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1624,1628 **** int gsl_blas_ssyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, ! const gsl_matrix_float * A, float beta, gsl_matrix_float * C) { const size_t M = C->size1; --- 1624,1628 ---- int gsl_blas_ssyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, ! const gsl_matrix_float * A, float beta, gsl_matrix_float * C) { const size_t M = C->size1; *************** *** 1640,1644 **** cblas_ssyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1640,1644 ---- cblas_ssyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1647,1651 **** int gsl_blas_dsyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, double alpha, ! const gsl_matrix * A, double beta, gsl_matrix * C) { const size_t M = C->size1; --- 1647,1651 ---- int gsl_blas_dsyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, double alpha, ! const gsl_matrix * A, double beta, gsl_matrix * C) { const size_t M = C->size1; *************** *** 1663,1667 **** cblas_dsyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; --- 1663,1667 ---- cblas_dsyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; *************** *** 1671,1677 **** int gsl_blas_csyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1671,1677 ---- int gsl_blas_csyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1689,1694 **** cblas_csyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (MA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), ! GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1689,1694 ---- cblas_csyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (MA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), ! GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1697,1702 **** int gsl_blas_zsyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_complex beta, gsl_matrix_complex * C) { const size_t M = C->size1; --- 1697,1702 ---- int gsl_blas_zsyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_complex beta, gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1714,1719 **** cblas_zsyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), ! GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1714,1719 ---- cblas_zsyrk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), ! GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1723,1728 **** int gsl_blas_cherk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, ! const gsl_matrix_complex_float * A, float beta, ! gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1723,1728 ---- int gsl_blas_cherk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, ! const gsl_matrix_complex_float * A, float beta, ! gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1740,1744 **** cblas_cherk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1740,1744 ---- cblas_cherk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1747,1752 **** int gsl_blas_zherk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, double alpha, ! const gsl_matrix_complex * A, double beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; --- 1747,1752 ---- int gsl_blas_zherk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, double alpha, ! const gsl_matrix_complex * A, double beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1764,1768 **** cblas_zherk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1764,1768 ---- cblas_zherk (CblasRowMajor, Uplo, Trans, INT (N), INT (K), alpha, A->data, ! INT (A->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1772,1777 **** int gsl_blas_ssyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, ! const gsl_matrix_float * A, const gsl_matrix_float * B, ! float beta, gsl_matrix_float * C) { const size_t M = C->size1; --- 1772,1777 ---- int gsl_blas_ssyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, ! const gsl_matrix_float * A, const gsl_matrix_float * B, ! float beta, gsl_matrix_float * C) { const size_t M = C->size1; *************** *** 1792,1797 **** cblas_ssyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), alpha, A->data, ! INT (A->tda), B->data, INT (B->tda), beta, C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1792,1797 ---- cblas_ssyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), alpha, A->data, ! INT (A->tda), B->data, INT (B->tda), beta, C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1800,1805 **** int gsl_blas_dsyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, double alpha, ! const gsl_matrix * A, const gsl_matrix * B, double beta, ! gsl_matrix * C) { const size_t M = C->size1; --- 1800,1805 ---- int gsl_blas_dsyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, double alpha, ! const gsl_matrix * A, const gsl_matrix * B, double beta, ! gsl_matrix * C) { const size_t M = C->size1; *************** *** 1820,1825 **** cblas_dsyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), alpha, A->data, ! INT (A->tda), B->data, INT (B->tda), beta, C->data, ! INT (C->tda)); return GSL_SUCCESS; } --- 1820,1825 ---- cblas_dsyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), alpha, A->data, ! INT (A->tda), B->data, INT (B->tda), beta, C->data, ! INT (C->tda)); return GSL_SUCCESS; } *************** *** 1828,1835 **** int gsl_blas_csyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1828,1835 ---- int gsl_blas_csyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, ! const gsl_complex_float beta, gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1850,1855 **** cblas_csyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1850,1855 ---- cblas_csyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1859,1865 **** int gsl_blas_zsyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; --- 1859,1865 ---- int gsl_blas_zsyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, const gsl_complex beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1880,1885 **** cblas_zsyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } --- 1880,1885 ---- cblas_zsyr2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), GSL_COMPLEX_P (&beta), C->data, INT (C->tda)); return GSL_SUCCESS; } *************** *** 1889,1896 **** int gsl_blas_cher2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, float beta, ! gsl_matrix_complex_float * C) { const size_t M = C->size1; --- 1889,1896 ---- int gsl_blas_cher2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! const gsl_matrix_complex_float * B, float beta, ! gsl_matrix_complex_float * C) { const size_t M = C->size1; *************** *** 1911,1916 **** cblas_cher2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; --- 1911,1916 ---- cblas_cher2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; *************** *** 1920,1926 **** int gsl_blas_zher2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, double beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; --- 1920,1926 ---- int gsl_blas_zher2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! const gsl_matrix_complex * B, double beta, ! gsl_matrix_complex * C) { const size_t M = C->size1; *************** *** 1941,1946 **** cblas_zher2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; --- 1941,1946 ---- cblas_zher2k (CblasRowMajor, Uplo, Trans, INT (N), INT (NA), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda), beta, C->data, INT (C->tda)); return GSL_SUCCESS; *************** *** 1951,1956 **** int gsl_blas_strmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, float alpha, ! const gsl_matrix_float * A, gsl_matrix_float * B) { const size_t M = B->size1; --- 1951,1956 ---- int gsl_blas_strmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, float alpha, ! const gsl_matrix_float * A, gsl_matrix_float * B) { const size_t M = B->size1; *************** *** 1967,1971 **** { cblas_strmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } --- 1967,1971 ---- { cblas_strmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } *************** *** 1979,1984 **** int gsl_blas_dtrmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, double alpha, ! const gsl_matrix * A, gsl_matrix * B) { const size_t M = B->size1; --- 1979,1984 ---- int gsl_blas_dtrmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, double alpha, ! const gsl_matrix * A, gsl_matrix * B) { const size_t M = B->size1; *************** *** 1995,1999 **** { cblas_dtrmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } --- 1995,1999 ---- { cblas_dtrmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } *************** *** 2007,2014 **** int gsl_blas_ctrmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! gsl_matrix_complex_float * B) { const size_t M = B->size1; --- 2007,2014 ---- int gsl_blas_ctrmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! gsl_matrix_complex_float * B) { const size_t M = B->size1; *************** *** 2025,2030 **** { cblas_ctrmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } --- 2025,2030 ---- { cblas_ctrmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } *************** *** 2038,2044 **** int gsl_blas_ztrmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! gsl_matrix_complex * B) { const size_t M = B->size1; --- 2038,2044 ---- int gsl_blas_ztrmm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! gsl_matrix_complex * B) { const size_t M = B->size1; *************** *** 2055,2060 **** { cblas_ztrmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } --- 2055,2060 ---- { cblas_ztrmm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } *************** *** 2070,2075 **** int gsl_blas_strsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, float alpha, ! const gsl_matrix_float * A, gsl_matrix_float * B) { const size_t M = B->size1; --- 2070,2075 ---- int gsl_blas_strsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, float alpha, ! const gsl_matrix_float * A, gsl_matrix_float * B) { const size_t M = B->size1; *************** *** 2086,2090 **** { cblas_strsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } --- 2086,2090 ---- { cblas_strsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } *************** *** 2098,2103 **** int gsl_blas_dtrsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, double alpha, ! const gsl_matrix * A, gsl_matrix * B) { const size_t M = B->size1; --- 2098,2103 ---- int gsl_blas_dtrsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, double alpha, ! const gsl_matrix * A, gsl_matrix * B) { const size_t M = B->size1; *************** *** 2114,2118 **** { cblas_dtrsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } --- 2114,2118 ---- { cblas_dtrsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! alpha, A->data, INT (A->tda), B->data, INT (B->tda)); return GSL_SUCCESS; } *************** *** 2126,2133 **** int gsl_blas_ctrsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! gsl_matrix_complex_float * B) { const size_t M = B->size1; --- 2126,2133 ---- int gsl_blas_ctrsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex_float alpha, ! const gsl_matrix_complex_float * A, ! gsl_matrix_complex_float * B) { const size_t M = B->size1; *************** *** 2144,2149 **** { cblas_ctrsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } --- 2144,2149 ---- { cblas_ctrsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } *************** *** 2157,2163 **** int gsl_blas_ztrsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! gsl_matrix_complex * B) { const size_t M = B->size1; --- 2157,2163 ---- int gsl_blas_ztrsm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, ! CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, ! const gsl_complex alpha, const gsl_matrix_complex * A, ! gsl_matrix_complex * B) { const size_t M = B->size1; *************** *** 2174,2179 **** { cblas_ztrsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } --- 2174,2179 ---- { cblas_ztrsm (CblasRowMajor, Side, Uplo, TransA, Diag, INT (M), INT (N), ! GSL_COMPLEX_P (&alpha), A->data, INT (A->tda), B->data, ! INT (B->tda)); return GSL_SUCCESS; } diff -x.info* -rc2P gsl-1.3/blas/gsl_blas.h gsl-1.4/blas/gsl_blas.h *** gsl-1.3/blas/gsl_blas.h Mon Jun 10 13:04:36 2002 --- gsl-1.4/blas/gsl_blas.h Fri Jul 25 15:18:17 2003 *************** *** 61,71 **** int gsl_blas_sdot (const gsl_vector_float * X, const gsl_vector_float * Y, ! float * result ! ); int gsl_blas_ddot (const gsl_vector * X, const gsl_vector * Y, ! double * result ! ); --- 61,71 ---- int gsl_blas_sdot (const gsl_vector_float * X, const gsl_vector_float * Y, ! float * result ! ); int gsl_blas_ddot (const gsl_vector * X, const gsl_vector * Y, ! double * result ! ); diff -x.info* -rc2P gsl-1.3/block/Makefile.am gsl-1.4/block/Makefile.am *** gsl-1.3/block/Makefile.am Wed Jun 6 17:10:10 2001 --- gsl-1.4/block/Makefile.am Sun Jul 27 09:49:48 2003 *************** *** 3,7 **** check_PROGRAMS = test ! pkginclude_HEADERS = gsl_block.h gsl_block_char.h gsl_block_complex.h gsl_block_complex_double.h gsl_block_complex_float.h gsl_block_complex_long_double.h gsl_block_double.h gsl_block_float.h gsl_block_int.h gsl_block_long.h gsl_block_long_double.h gsl_block_short.h gsl_block_uchar.h gsl_block_uint.h gsl_block_ulong.h gsl_block_ushort.h INCLUDES= -I$(top_builddir) -I$(top_srcdir) --- 3,7 ---- check_PROGRAMS = test ! pkginclude_HEADERS = gsl_block.h gsl_block_char.h gsl_block_complex.h gsl_block_complex_double.h gsl_block_complex_float.h gsl_block_complex_long_double.h gsl_block_double.h gsl_block_float.h gsl_block_int.h gsl_block_long.h gsl_block_long_double.h gsl_block_short.h gsl_block_uchar.h gsl_block_uint.h gsl_block_ulong.h gsl_block_ushort.h gsl_check_range.h INCLUDES= -I$(top_builddir) -I$(top_srcdir) *************** *** 9,13 **** TESTS = test ! test_LDADD = libgslblock.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../utils/libutils.la test_SOURCES = test.c --- 9,13 ---- TESTS = test ! test_LDADD = libgslblock.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la ../utils/libutils.la test_SOURCES = test.c diff -x.info* -rc2P gsl-1.3/block/Makefile.in gsl-1.4/block/Makefile.in *** gsl-1.3/block/Makefile.in Wed Dec 18 22:37:07 2002 --- gsl-1.4/block/Makefile.in Thu Aug 14 12:31:04 2003 *************** *** 1,5 **** ! # Makefile.in generated automatically by automake 1.4-p5 from Makefile.am ! # Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, --- 1,7 ---- ! # Makefile.in generated by automake 1.7.5 from Makefile.am. ! # @configure_input@ ! # Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 ! # Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, *************** *** 11,55 **** # PARTICULAR PURPOSE. ! ! SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ - prefix = @prefix@ - exec_prefix = @exec_prefix@ - - bindir = @bindir@ - sbindir = @sbindir@ - libexecdir = @libexecdir@ - datadir = @datadir@ - sysconfdir = @sysconfdir@ - sharedstatedir = @sharedstatedir@ - localstatedir = @localstatedir@ - libdir = @libdir@ - infodir = @infodir@ - mandir = @mandir@ - includedir = @includedir@ - oldincludedir = /usr/include - - DESTDIR = - pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ - top_builddir = .. ! ACLOCAL = @ACLOCAL@ ! AUTOCONF = @AUTOCONF@ ! AUTOMAKE = @AUTOMAKE@ ! AUTOHEADER = @AUTOHEADER@ ! INSTALL = @INSTALL@ ! INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) ! INSTALL_DATA = @INSTALL_DATA@ ! INSTALL_SCRIPT = @INSTALL_SCRIPT@ ! transform = @program_transform_name@ ! NORMAL_INSTALL = : PRE_INSTALL = : --- 13,33 ---- # PARTICULAR PURPOSE. ! @SET_MAKE@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. ! am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ ! install_sh_DATA = $(install_sh) -c -m 644 ! install_sh_PROGRAM = $(install_sh) -c ! install_sh_SCRIPT = $(install_sh) -c ! INSTALL_HEADER = $(INSTALL_DATA) ! transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : *************** *** 58,69 **** PRE_UNINSTALL = : POST_UNINSTALL = : - host_alias = @host_alias@ host_triplet = @host@ AR = @AR@ ! AS = @AS@ CC = @CC@ CPP = @CPP@ ! DLLTOOL = @DLLTOOL@ ECHO = @ECHO@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ --- 36,58 ---- PRE_UNINSTALL = : POST_UNINSTALL = : host_triplet = @host@ + ACLOCAL = @ACLOCAL@ + AMTAR = @AMTAR@ AR = @AR@ ! AUTOCONF = @AUTOCONF@ ! AUTOHEADER = @AUTOHEADER@ ! AUTOMAKE = @AUTOMAKE@ ! AWK = @AWK@ CC = @CC@ + CFLAGS = @CFLAGS@ CPP = @CPP@ ! CPPFLAGS = @CPPFLAGS@ ! CYGPATH_W = @CYGPATH_W@ ! DEFS = @DEFS@ ECHO = @ECHO@ + ECHO_C = @ECHO_C@ + ECHO_N = @ECHO_N@ + ECHO_T = @ECHO_T@ + EGREP = @EGREP@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ *************** *** 71,93 **** GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ - OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ STRIP = @STRIP@ VERSION = @VERSION@ ! noinst_LTLIBRARIES = libgslblock.la check_PROGRAMS = test ! pkginclude_HEADERS = gsl_block.h gsl_block_char.h gsl_block_complex.h gsl_block_complex_double.h gsl_block_complex_float.h gsl_block_complex_long_double.h gsl_block_double.h gsl_block_float.h gsl_block_int.h gsl_block_long.h gsl_block_long_double.h gsl_block_short.h gsl_block_uchar.h gsl_block_uint.h gsl_block_ulong.h gsl_block_ushort.h INCLUDES = -I$(top_builddir) -I$(top_srcdir) --- 60,149 ---- GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ + HAVE_AIX_IEEE_INTERFACE = @HAVE_AIX_IEEE_INTERFACE@ + HAVE_DARWIN_IEEE_INTERFACE = @HAVE_DARWIN_IEEE_INTERFACE@ + HAVE_EXTENDED_PRECISION_REGISTERS = @HAVE_EXTENDED_PRECISION_REGISTERS@ + HAVE_FREEBSD_IEEE_INTERFACE = @HAVE_FREEBSD_IEEE_INTERFACE@ + HAVE_GNUM68K_IEEE_INTERFACE = @HAVE_GNUM68K_IEEE_INTERFACE@ + HAVE_GNUPPC_IEEE_INTERFACE = @HAVE_GNUPPC_IEEE_INTERFACE@ + HAVE_GNUSPARC_IEEE_INTERFACE = @HAVE_GNUSPARC_IEEE_INTERFACE@ + HAVE_GNUX86_IEEE_INTERFACE = @HAVE_GNUX86_IEEE_INTERFACE@ + HAVE_HPUX11_IEEE_INTERFACE = @HAVE_HPUX11_IEEE_INTERFACE@ + HAVE_HPUX_IEEE_INTERFACE = @HAVE_HPUX_IEEE_INTERFACE@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ + HAVE_IRIX_IEEE_INTERFACE = @HAVE_IRIX_IEEE_INTERFACE@ + HAVE_NETBSD_IEEE_INTERFACE = @HAVE_NETBSD_IEEE_INTERFACE@ + HAVE_OPENBSD_IEEE_INTERFACE = @HAVE_OPENBSD_IEEE_INTERFACE@ + HAVE_OS2EMX_IEEE_INTERFACE = @HAVE_OS2EMX_IEEE_INTERFACE@ + HAVE_PRINTF_LONGDOUBLE = @HAVE_PRINTF_LONGDOUBLE@ + HAVE_SOLARIS_IEEE_INTERFACE = @HAVE_SOLARIS_IEEE_INTERFACE@ + HAVE_SUNOS4_IEEE_INTERFACE = @HAVE_SUNOS4_IEEE_INTERFACE@ + HAVE_TRU64_IEEE_INTERFACE = @HAVE_TRU64_IEEE_INTERFACE@ + INSTALL_DATA = @INSTALL_DATA@ + INSTALL_PROGRAM = @INSTALL_PROGRAM@ + INSTALL_SCRIPT = @INSTALL_SCRIPT@ + INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ + LDFLAGS = @LDFLAGS@ + LIBOBJS = @LIBOBJS@ + LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ + LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ + MAINTAINER_MODE_FALSE = @MAINTAINER_MODE_FALSE@ + MAINTAINER_MODE_TRUE = @MAINTAINER_MODE_TRUE@ MAKEINFO = @MAKEINFO@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ + PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ + PACKAGE_NAME = @PACKAGE_NAME@ + PACKAGE_STRING = @PACKAGE_STRING@ + PACKAGE_TARNAME = @PACKAGE_TARNAME@ + PACKAGE_VERSION = @PACKAGE_VERSION@ + PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ + RELEASED = @RELEASED@ + SET_MAKE = @SET_MAKE@ + SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ ! ac_ct_AR = @ac_ct_AR@ ! ac_ct_CC = @ac_ct_CC@ ! ac_ct_RANLIB = @ac_ct_RANLIB@ ! ac_ct_STRIP = @ac_ct_STRIP@ ! am__leading_dot = @am__leading_dot@ ! bindir = @bindir@ ! build = @build@ ! build_alias = @build_alias@ ! build_cpu = @build_cpu@ ! build_os = @build_os@ ! build_vendor = @build_vendor@ ! datadir = @datadir@ ! exec_prefix = @exec_prefix@ ! host = @host@ ! host_alias = @host_alias@ ! host_cpu = @host_cpu@ ! host_os = @host_os@ ! host_vendor = @host_vendor@ ! includedir = @includedir@ ! infodir = @infodir@ ! install_sh = @install_sh@ ! libdir = @libdir@ ! libexecdir = @libexecdir@ ! localstatedir = @localstatedir@ ! mandir = @mandir@ ! oldincludedir = @oldincludedir@ ! prefix = @prefix@ ! program_transform_name = @program_transform_name@ ! sbindir = @sbindir@ ! sharedstatedir = @sharedstatedir@ ! sysconfdir = @sysconfdir@ ! target_alias = @target_alias@ noinst_LTLIBRARIES = libgslblock.la check_PROGRAMS = test ! pkginclude_HEADERS = gsl_block.h gsl_block_char.h gsl_block_complex.h gsl_block_complex_double.h gsl_block_complex_float.h gsl_block_complex_long_double.h gsl_block_double.h gsl_block_float.h gsl_block_int.h gsl_block_long.h gsl_block_long_double.h gsl_block_short.h gsl_block_uchar.h gsl_block_uint.h gsl_block_ulong.h gsl_block_ushort.h gsl_check_range.h INCLUDES = -I$(top_builddir) -I$(top_srcdir) *************** *** 95,99 **** TESTS = test ! test_LDADD = libgslblock.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../utils/libutils.la test_SOURCES = test.c --- 151,155 ---- TESTS = test ! test_LDADD = libgslblock.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la ../utils/libutils.la test_SOURCES = test.c *************** *** 104,195 **** libgslblock_la_SOURCES = init.c file.c block.c mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs ! CONFIG_HEADER = ../config.h ! CONFIG_CLEAN_FILES = ! LTLIBRARIES = $(noinst_LTLIBRARIES) ! ! ! DEFS = @DEFS@ -I. -I$(srcdir) -I.. ! CPPFLAGS = @CPPFLAGS@ ! LDFLAGS = @LDFLAGS@ ! LIBS = @LIBS@ ! libgslblock_la_LDFLAGS = ! libgslblock_la_LIBADD = ! libgslblock_la_OBJECTS = init.lo file.lo block.lo ! check_PROGRAMS = test$(EXEEXT) ! test_OBJECTS = test.$(OBJEXT) ! test_DEPENDENCIES = libgslblock.la ../ieee-utils/libgslieeeutils.la \ ! ../err/libgslerr.la ../test/libgsltest.la ../utils/libutils.la ! test_LDFLAGS = ! CFLAGS = @CFLAGS@ ! COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ ! HEADERS = $(noinst_HEADERS) $(pkginclude_HEADERS) ! ! DIST_COMMON = ChangeLog Makefile.am Makefile.in ! ! DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) ! ! TAR = tar ! GZIP_ENV = --best SOURCES = $(libgslblock_la_SOURCES) $(test_SOURCES) - OBJECTS = $(libgslblock_la_OBJECTS) $(test_OBJECTS) ! all: all-redirect ! .SUFFIXES: ! .SUFFIXES: .S .c .lo .o .obj .s ! $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) ! cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps block/Makefile ! Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status ! cd $(top_builddir) \ ! && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status ! ! ! mostlyclean-noinstLTLIBRARIES: clean-noinstLTLIBRARIES: -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) ! distclean-noinstLTLIBRARIES: ! ! maintainer-clean-noinstLTLIBRARIES: ! ! .c.o: ! $(COMPILE) -c $< ! ! # FIXME: We should only use cygpath when building on Windows, ! # and only if it is available. ! .c.obj: ! $(COMPILE) -c `cygpath -w $<` ! ! .s.o: ! $(COMPILE) -c $< ! ! .S.o: ! $(COMPILE) -c $< mostlyclean-compile: ! -rm -f *.o core *.core ! -rm -f *.$(OBJEXT) ! ! clean-compile: distclean-compile: -rm -f *.tab.c ! maintainer-clean-compile: ! ! .c.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! .s.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! .S.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< mostlyclean-libtool: --- 160,244 ---- libgslblock_la_SOURCES = init.c file.c block.c + subdir = block + ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs ! CONFIG_HEADER = $(top_builddir)/config.h ! CONFIG_CLEAN_FILES = ! LTLIBRARIES = $(noinst_LTLIBRARIES) ! ! libgslblock_la_LDFLAGS = ! libgslblock_la_LIBADD = ! am_libgslblock_la_OBJECTS = init.lo file.lo block.lo ! libgslblock_la_OBJECTS = $(am_libgslblock_la_OBJECTS) ! check_PROGRAMS = test$(EXEEXT) ! am_test_OBJECTS = test.$(OBJEXT) ! test_OBJECTS = $(am_test_OBJECTS) ! test_DEPENDENCIES = libgslblock.la ../ieee-utils/libgslieeeutils.la \ ! ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la \ ! ../utils/libutils.la ! test_LDFLAGS = ! ! DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) ! depcomp = ! am__depfiles_maybe = ! COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ ! $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) \ ! $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ ! $(AM_LDFLAGS) $(LDFLAGS) -o $@ ! DIST_SOURCES = $(libgslblock_la_SOURCES) $(test_SOURCES) ! HEADERS = $(noinst_HEADERS) $(pkginclude_HEADERS) ! DIST_COMMON = $(noinst_HEADERS) $(pkginclude_HEADERS) ChangeLog \ ! Makefile.am Makefile.in SOURCES = $(libgslblock_la_SOURCES) $(test_SOURCES) ! all: all-am ! .SUFFIXES: ! .SUFFIXES: .c .lo .o .obj ! $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.ac $(ACLOCAL_M4) ! cd $(top_srcdir) && \ ! $(AUTOMAKE) --gnu block/Makefile ! Makefile: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.in $(top_builddir)/config.status ! cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe) clean-noinstLTLIBRARIES: -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \ + dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ + test "$$dir" = "$$p" && dir=.; \ + echo "rm -f \"$${dir}/so_locations\""; \ + rm -f "$${dir}/so_locations"; \ + done + libgslblock.la: $(libgslblock_la_OBJECTS) $(libgslblock_la_DEPENDENCIES) + $(LINK) $(libgslblock_la_LDFLAGS) $(libgslblock_la_OBJECTS) $(libgslblock_la_LIBADD) $(LIBS) ! clean-checkPROGRAMS: ! @list='$(check_PROGRAMS)'; for p in $$list; do \ ! f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ ! echo " rm -f $$p $$f"; \ ! rm -f $$p $$f ; \ ! done ! test$(EXEEXT): $(test_OBJECTS) $(test_DEPENDENCIES) ! @rm -f test$(EXEEXT) ! $(LINK) $(test_LDFLAGS) $(test_OBJECTS) $(test_LDADD) $(LIBS) mostlyclean-compile: ! -rm -f *.$(OBJEXT) core *.core distclean-compile: -rm -f *.tab.c ! .c.o: ! $(COMPILE) -c `test -f '$<' || echo '$(srcdir)/'`$< ! .c.obj: ! $(COMPILE) -c `if test -f '$<'; then $(CYGPATH_W) '$<'; else $(CYGPATH_W) '$(srcdir)/$<'; fi` ! .c.lo: ! $(LTCOMPILE) -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$< mostlyclean-libtool: *************** *** 200,336 **** distclean-libtool: ! ! maintainer-clean-libtool: ! ! libgslblock.la: $(libgslblock_la_OBJECTS) $(libgslblock_la_DEPENDENCIES) ! $(LINK) $(libgslblock_la_LDFLAGS) $(libgslblock_la_OBJECTS) $(libgslblock_la_LIBADD) $(LIBS) ! ! mostlyclean-checkPROGRAMS: ! ! clean-checkPROGRAMS: ! -test -z "$(check_PROGRAMS)" || rm -f $(check_PROGRAMS) ! ! distclean-checkPROGRAMS: ! ! maintainer-clean-checkPROGRAMS: ! ! test$(EXEEXT): $(test_OBJECTS) $(test_DEPENDENCIES) ! @rm -f test$(EXEEXT) ! $(LINK) $(test_LDFLAGS) $(test_OBJECTS) $(test_LDADD) $(LIBS) ! install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ ! echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p"; \ ! $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$p; \ done tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! here=`pwd` && cd $(srcdir) \ ! && mkid -f$$here/ID $$unique $(LISP) ! TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ ! || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) ! ! mostlyclean-tags: ! ! clean-tags: distclean-tags: ! -rm -f TAGS ID ! maintainer-clean-tags: ! ! distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) ! subdir = block distdir: $(DISTFILES) ! @for file in $(DISTFILES); do \ ! d=$(srcdir); \ if test -d $$d/$$file; then \ ! cp -pr $$d/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ ! || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ ! || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done - - check-TESTS: $(TESTS) - @failed=0; all=0; \ - srcdir=$(srcdir); export srcdir; \ - for tst in $(TESTS); do \ - if test -f $$tst; then dir=.; \ - else dir="$(srcdir)"; fi; \ - if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \ - all=`expr $$all + 1`; \ - echo "PASS: $$tst"; \ - elif test $$? -ne 77; then \ - all=`expr $$all + 1`; \ - failed=`expr $$failed + 1`; \ - echo "FAIL: $$tst"; \ - fi; \ - done; \ - if test "$$failed" -eq 0; then \ - banner="All $$all tests passed"; \ - else \ - banner="$$failed of $$all tests failed"; \ - fi; \ - dashes=`echo "$$banner" | sed s/./=/g`; \ - echo "$$dashes"; \ - echo "$$banner"; \ - echo "$$dashes"; \ - test "$$failed" -eq 0 - info-am: - info: info-am - dvi-am: - dvi: dvi-am check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am ! installcheck-am: ! installcheck: installcheck-am ! install-exec-am: ! install-exec: install-exec-am ! install-data-am: install-pkgincludeHEADERS install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am - install: install-am - uninstall-am: uninstall-pkgincludeHEADERS - uninstall: uninstall-am - all-am: Makefile $(LTLIBRARIES) $(HEADERS) - all-redirect: all-am - install-strip: - $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install - installdirs: - $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) - mostlyclean-generic: --- 249,453 ---- distclean-libtool: ! -rm -f libtool ! uninstall-info-am: ! pkgincludeHEADERS_INSTALL = $(INSTALL_HEADER) install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f"; \ ! $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " rm -f $(DESTDIR)$(pkgincludedir)/$$f"; \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$f; \ done + ETAGS = etags + ETAGSFLAGS = + + CTAGS = ctags + CTAGSFLAGS = + tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! mkid -fID $$unique ! TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$tags$$unique" \ ! || $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ ! $$tags $$unique ! ! ctags: CTAGS ! CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) ! tags=; \ ! here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ ! END { for (i in files) print i; }'`; \ ! test -z "$(CTAGS_ARGS)$$tags$$unique" \ ! || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ ! $$tags $$unique ! ! GTAGS: ! here=`$(am__cd) $(top_builddir) && pwd` \ ! && cd $(top_srcdir) \ ! && gtags -i $(GTAGS_ARGS) $$here distclean-tags: ! -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags ! check-TESTS: $(TESTS) ! @failed=0; all=0; xfail=0; xpass=0; skip=0; \ ! srcdir=$(srcdir); export srcdir; \ ! list='$(TESTS)'; \ ! if test -n "$$list"; then \ ! for tst in $$list; do \ ! if test -f ./$$tst; then dir=./; \ ! elif test -f $$tst; then dir=; \ ! else dir="$(srcdir)/"; fi; \ ! if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ ! all=`expr $$all + 1`; \ ! case " $(XFAIL_TESTS) " in \ ! *" $$tst "*) \ ! xpass=`expr $$xpass + 1`; \ ! failed=`expr $$failed + 1`; \ ! echo "XPASS: $$tst"; \ ! ;; \ ! *) \ ! echo "PASS: $$tst"; \ ! ;; \ ! esac; \ ! elif test $$? -ne 77; then \ ! all=`expr $$all + 1`; \ ! case " $(XFAIL_TESTS) " in \ ! *" $$tst "*) \ ! xfail=`expr $$xfail + 1`; \ ! echo "XFAIL: $$tst"; \ ! ;; \ ! *) \ ! failed=`expr $$failed + 1`; \ ! echo "FAIL: $$tst"; \ ! ;; \ ! esac; \ ! else \ ! skip=`expr $$skip + 1`; \ ! echo "SKIP: $$tst"; \ ! fi; \ ! done; \ ! if test "$$failed" -eq 0; then \ ! if test "$$xfail" -eq 0; then \ ! banner="All $$all tests passed"; \ ! else \ ! banner="All $$all tests behaved as expected ($$xfail expected failures)"; \ ! fi; \ ! else \ ! if test "$$xpass" -eq 0; then \ ! banner="$$failed of $$all tests failed"; \ ! else \ ! banner="$$failed of $$all tests did not behave as expected ($$xpass unexpected passes)"; \ ! fi; \ ! fi; \ ! dashes="$$banner"; \ ! skipped=""; \ ! if test "$$skip" -ne 0; then \ ! skipped="($$skip tests were not run)"; \ ! test `echo "$$skipped" | wc -c` -gt `echo "$$banner" | wc -c` && \ ! dashes="$$skipped"; \ ! fi; \ ! report=""; \ ! if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ ! report="Please report to $(PACKAGE_BUGREPORT)"; \ ! test `echo "$$report" | wc -c` -gt `echo "$$banner" | wc -c` && \ ! dashes="$$report"; \ ! fi; \ ! dashes=`echo "$$dashes" | sed s/./=/g`; \ ! echo "$$dashes"; \ ! echo "$$banner"; \ ! test -n "$$skipped" && echo "$$skipped"; \ ! test -n "$$report" && echo "$$report"; \ ! echo "$$dashes"; \ ! test "$$failed" -eq 0; \ ! else :; fi ! DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ! top_distdir = .. ! distdir = $(top_distdir)/$(PACKAGE)-$(VERSION) distdir: $(DISTFILES) ! @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ ! topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ ! list='$(DISTFILES)'; for file in $$list; do \ ! case $$file in \ ! $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ ! $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ ! esac; \ ! if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ ! dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ ! if test "$$dir" != "$$file" && test "$$dir" != "."; then \ ! dir="/$$dir"; \ ! $(mkinstalldirs) "$(distdir)$$dir"; \ ! else \ ! dir=''; \ ! fi; \ if test -d $$d/$$file; then \ ! if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ ! cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ ! fi; \ ! cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ ! || cp -p $$d/$$file $(distdir)/$$file \ ! || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am ! all-am: Makefile $(LTLIBRARIES) $(HEADERS) ! installdirs: ! $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) ! install: install-am ! install-exec: install-exec-am install-data: install-data-am + uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + installcheck: installcheck-am + install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: *************** *** 340,389 **** distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: ! mostlyclean-am: mostlyclean-noinstLTLIBRARIES mostlyclean-compile \ ! mostlyclean-libtool mostlyclean-checkPROGRAMS \ ! mostlyclean-tags mostlyclean-generic ! mostlyclean: mostlyclean-am ! clean-am: clean-noinstLTLIBRARIES clean-compile clean-libtool \ ! clean-checkPROGRAMS clean-tags clean-generic \ ! mostlyclean-am ! clean: clean-am ! distclean-am: distclean-noinstLTLIBRARIES distclean-compile \ ! distclean-libtool distclean-checkPROGRAMS \ ! distclean-tags distclean-generic clean-am ! -rm -f libtool ! distclean: distclean-am ! maintainer-clean-am: maintainer-clean-noinstLTLIBRARIES \ ! maintainer-clean-compile maintainer-clean-libtool \ ! maintainer-clean-checkPROGRAMS maintainer-clean-tags \ ! maintainer-clean-generic distclean-am ! @echo "This command is intended for maintainers to use;" ! @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am ! .PHONY: mostlyclean-noinstLTLIBRARIES distclean-noinstLTLIBRARIES \ ! clean-noinstLTLIBRARIES maintainer-clean-noinstLTLIBRARIES \ ! mostlyclean-compile distclean-compile clean-compile \ ! maintainer-clean-compile mostlyclean-libtool distclean-libtool \ ! clean-libtool maintainer-clean-libtool mostlyclean-checkPROGRAMS \ ! distclean-checkPROGRAMS clean-checkPROGRAMS \ ! maintainer-clean-checkPROGRAMS uninstall-pkgincludeHEADERS \ ! install-pkgincludeHEADERS tags mostlyclean-tags distclean-tags \ ! clean-tags maintainer-clean-tags distdir check-TESTS info-am info \ ! dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ ! install-exec install-data-am install-data install-am install \ ! uninstall-am uninstall all-redirect all-am all installdirs \ ! mostlyclean-generic distclean-generic clean-generic \ ! maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. --- 457,523 ---- distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) maintainer-clean-generic: ! @echo "This command is intended for maintainers to use" ! @echo "it deletes files that may require special tools to rebuild." ! clean: clean-am ! clean-am: clean-checkPROGRAMS clean-generic clean-libtool \ ! clean-noinstLTLIBRARIES mostlyclean-am ! distclean: distclean-am ! distclean-am: clean-am distclean-compile distclean-generic \ ! distclean-libtool distclean-tags ! dvi: dvi-am ! dvi-am: ! info: info-am ! ! info-am: ! ! install-data-am: install-pkgincludeHEADERS ! ! install-exec-am: ! ! install-info: install-info-am ! ! install-man: ! ! installcheck-am: maintainer-clean: maintainer-clean-am ! maintainer-clean-am: distclean-am maintainer-clean-generic ! ! mostlyclean: mostlyclean-am ! ! mostlyclean-am: mostlyclean-compile mostlyclean-generic \ ! mostlyclean-libtool ! ! pdf: pdf-am ! ! pdf-am: ! ! ps: ps-am + ps-am: + + uninstall-am: uninstall-info-am uninstall-pkgincludeHEADERS + + .PHONY: CTAGS GTAGS all all-am check check-TESTS check-am clean \ + clean-checkPROGRAMS clean-generic clean-libtool \ + clean-noinstLTLIBRARIES ctags distclean distclean-compile \ + distclean-generic distclean-libtool distclean-tags distdir dvi \ + dvi-am info info-am install install-am install-data \ + install-data-am install-exec install-exec-am install-info \ + install-info-am install-man install-pkgincludeHEADERS \ + install-strip installcheck installcheck-am installdirs \ + maintainer-clean maintainer-clean-generic mostlyclean \ + mostlyclean-compile mostlyclean-generic mostlyclean-libtool pdf \ + pdf-am ps ps-am tags uninstall uninstall-am uninstall-info-am \ + uninstall-pkgincludeHEADERS # Tell versions [3.59,3.63) of GNU make to not export all variables. diff -x.info* -rc2P gsl-1.3/block/fprintf_source.c gsl-1.4/block/fprintf_source.c *** gsl-1.3/block/fprintf_source.c Wed Apr 18 21:52:21 2001 --- gsl-1.4/block/fprintf_source.c Fri Jul 25 15:18:07 2003 *************** *** 18,22 **** */ ! #if !(defined(USES_LONGDOUBLE) && !defined(HAVE_PRINTF_LONGDOUBLE)) int --- 18,22 ---- */ ! #if !(USES_LONGDOUBLE && !HAVE_PRINTF_LONGDOUBLE) int *************** *** 35,63 **** for (k = 0; k < MULTIPLICITY; k++) ! { ! if (k > 0) ! { ! status = putc (' ', stream); ! ! if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } ! } ! status = fprintf (stream, ! format, ! data[MULTIPLICITY * i + k]); ! if (status < 0) ! { ! GSL_ERROR ("fprintf failed", GSL_EFAILED); ! } ! } status = putc ('\n', stream); if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } } --- 35,63 ---- for (k = 0; k < MULTIPLICITY; k++) ! { ! if (k > 0) ! { ! status = putc (' ', stream); ! ! if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } ! } ! status = fprintf (stream, ! format, ! data[MULTIPLICITY * i + k]); ! if (status < 0) ! { ! GSL_ERROR ("fprintf failed", GSL_EFAILED); ! } ! } status = putc ('\n', stream); if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } } *************** *** 78,94 **** int k; for (k = 0; k < MULTIPLICITY; k++) ! { ATOMIC_IO tmp ; ! int status = fscanf (stream, IN_FORMAT, &tmp) ; data [MULTIPLICITY * i + k] = tmp; ! if (status != 1) { GSL_ERROR ("fscanf failed", GSL_EFAILED); } ! } } --- 78,94 ---- int k; for (k = 0; k < MULTIPLICITY; k++) ! { ATOMIC_IO tmp ; ! int status = fscanf (stream, IN_FORMAT, &tmp) ; data [MULTIPLICITY * i + k] = tmp; ! if (status != 1) { GSL_ERROR ("fscanf failed", GSL_EFAILED); } ! } } *************** *** 112,140 **** for (k = 0; k < MULTIPLICITY; k++) ! { ! if (k > 0) ! { ! status = putc (' ', stream); ! ! if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } ! } ! status = fprintf (stream, ! format, ! data[MULTIPLICITY * i * stride + k]); ! if (status < 0) ! { ! GSL_ERROR ("fprintf failed", GSL_EFAILED); ! } ! } status = putc ('\n', stream); if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } } --- 112,140 ---- for (k = 0; k < MULTIPLICITY; k++) ! { ! if (k > 0) ! { ! status = putc (' ', stream); ! ! if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } ! } ! status = fprintf (stream, ! format, ! data[MULTIPLICITY * i * stride + k]); ! if (status < 0) ! { ! GSL_ERROR ("fprintf failed", GSL_EFAILED); ! } ! } status = putc ('\n', stream); if (status == EOF) ! { ! GSL_ERROR ("putc failed", GSL_EFAILED); ! } } *************** *** 154,167 **** int k; for (k = 0; k < MULTIPLICITY; k++) ! { ATOMIC_IO tmp; ! int status = fscanf (stream, IN_FORMAT, &tmp) ; data [MULTIPLICITY * i * stride + k] = tmp; ! if (status != 1) ! GSL_ERROR ("fscanf failed", GSL_EFAILED); ! } } --- 154,167 ---- int k; for (k = 0; k < MULTIPLICITY; k++) ! { ATOMIC_IO tmp; ! int status = fscanf (stream, IN_FORMAT, &tmp) ; data [MULTIPLICITY * i * stride + k] = tmp; ! if (status != 1) ! GSL_ERROR ("fscanf failed", GSL_EFAILED); ! } } diff -x.info* -rc2P gsl-1.3/block/fwrite_source.c gsl-1.4/block/fwrite_source.c *** gsl-1.3/block/fwrite_source.c Wed Apr 18 21:52:21 2001 --- gsl-1.4/block/fwrite_source.c Fri Jul 25 15:18:07 2003 *************** *** 61,67 **** if (items != n) ! { ! GSL_ERROR ("fread failed", GSL_EFAILED); ! } } else --- 61,67 ---- if (items != n) ! { ! GSL_ERROR ("fread failed", GSL_EFAILED); ! } } else *************** *** 70,81 **** for (i = 0; i < n; i++) ! { ! size_t item = fread (data + MULTIPLICITY * i * stride, ! MULTIPLICITY * sizeof (ATOMIC), 1, stream); ! if (item != 1) ! { ! GSL_ERROR ("fread failed", GSL_EFAILED); ! } ! } } --- 70,81 ---- for (i = 0; i < n; i++) ! { ! size_t item = fread (data + MULTIPLICITY * i * stride, ! MULTIPLICITY * sizeof (ATOMIC), 1, stream); ! if (item != 1) ! { ! GSL_ERROR ("fread failed", GSL_EFAILED); ! } ! } } *************** *** 93,99 **** if (items != n) ! { ! GSL_ERROR ("fwrite failed", GSL_EFAILED); ! } } else --- 93,99 ---- if (items != n) ! { ! GSL_ERROR ("fwrite failed", GSL_EFAILED); ! } } else *************** *** 102,114 **** for (i = 0; i < n; i++) ! { ! size_t item = fwrite (data + MULTIPLICITY * i * stride, ! MULTIPLICITY * sizeof (ATOMIC), ! 1, stream); ! if (item != 1) ! { ! GSL_ERROR ("fwrite failed", GSL_EFAILED); ! } ! } } --- 102,114 ---- for (i = 0; i < n; i++) ! { ! size_t item = fwrite (data + MULTIPLICITY * i * stride, ! MULTIPLICITY * sizeof (ATOMIC), ! 1, stream); ! if (item != 1) ! { ! GSL_ERROR ("fwrite failed", GSL_EFAILED); ! } ! } } diff -x.info* -rc2P gsl-1.3/block/gsl_block_complex.h gsl-1.4/block/gsl_block_complex.h *** gsl-1.3/block/gsl_block_complex.h Mon Jun 10 13:04:36 2002 --- gsl-1.4/block/gsl_block_complex.h Fri Jul 25 15:18:17 2003 *************** *** 5,12 **** #define GSL_BLOCK_IMAG(z, i) ((z)->data[2*(i) + 1]) ! #ifdef GSL_RANGE_CHECK_OFF ! #define GSL_BLOCK_COMPLEX(zv, i) (GSL_COMPLEX_AT((zv),(i))) ! #else #define GSL_BLOCK_COMPLEX(zv, i) (((i) >= (zv)->size ? (gsl_error ("index out of range", __FILE__, __LINE__, GSL_EINVAL), 0):0 , *GSL_COMPLEX_AT((zv),(i)))) #endif --- 5,12 ---- #define GSL_BLOCK_IMAG(z, i) ((z)->data[2*(i) + 1]) ! #if GSL_RANGE_CHECK #define GSL_BLOCK_COMPLEX(zv, i) (((i) >= (zv)->size ? (gsl_error ("index out of range", __FILE__, __LINE__, GSL_EINVAL), 0):0 , *GSL_COMPLEX_AT((zv),(i)))) + #else + #define GSL_BLOCK_COMPLEX(zv, i) (GSL_COMPLEX_AT((zv),(i))) #endif diff -x.info* -rc2P gsl-1.3/block/gsl_check_range.h gsl-1.4/block/gsl_check_range.h *** gsl-1.3/block/gsl_check_range.h Thu Jan 1 00:00:00 1970 --- gsl-1.4/block/gsl_check_range.h Fri Jul 25 15:18:17 2003 *************** *** 0 **** --- 1,42 ---- + /* vector/gsl_check_range.h + * + * Copyright (C) 2003 Brian Gough + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or (at + * your option) any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + */ + + #ifndef __GSL_CHECK_RANGE_H__ + #define __GSL_CHECK_RANGE_H__ + + #include + #include + + #undef __BEGIN_DECLS + #undef __END_DECLS + #ifdef __cplusplus + # define __BEGIN_DECLS extern "C" { + # define __END_DECLS } + #else + # define __BEGIN_DECLS /* empty */ + # define __END_DECLS /* empty */ + #endif + + __BEGIN_DECLS + + GSL_VAR int gsl_check_range; + + __END_DECLS + + #endif /* __GSL_CHECK_RANGE_H__ */ diff -x.info* -rc2P gsl-1.3/block/init_source.c gsl-1.4/block/init_source.c *** gsl-1.3/block/init_source.c Wed Apr 18 21:52:21 2001 --- gsl-1.4/block/init_source.c Fri Jul 25 15:18:07 2003 *************** *** 26,30 **** { GSL_ERROR_VAL ("block length n must be positive integer", ! GSL_EINVAL, 0); } --- 26,30 ---- { GSL_ERROR_VAL ("block length n must be positive integer", ! GSL_EINVAL, 0); } *************** *** 34,38 **** { GSL_ERROR_VAL ("failed to allocate space for block struct", ! GSL_ENOMEM, 0); } --- 34,38 ---- { GSL_ERROR_VAL ("failed to allocate space for block struct", ! GSL_ENOMEM, 0); } *************** *** 41,48 **** if (b->data == 0) { ! free (b); /* exception in constructor, avoid memory leak */ GSL_ERROR_VAL ("failed to allocate space for block data", ! GSL_ENOMEM, 0); } --- 41,48 ---- if (b->data == 0) { ! free (b); /* exception in constructor, avoid memory leak */ GSL_ERROR_VAL ("failed to allocate space for block data", ! GSL_ENOMEM, 0); } diff -x.info* -rc2P gsl-1.3/block/test.c gsl-1.4/block/test.c *** gsl-1.3/block/test.c Tue Jun 26 11:41:09 2001 --- gsl-1.4/block/test.c Fri Jul 25 15:18:07 2003 *************** *** 38,42 **** #include "templates_on.h" #include "test_complex_source.c" ! #ifdef HAVE_PRINTF_LONGDOUBLE #include "test_complex_io.c" #endif --- 38,42 ---- #include "templates_on.h" #include "test_complex_source.c" ! #if HAVE_PRINTF_LONGDOUBLE #include "test_complex_io.c" #endif *************** *** 62,66 **** #include "templates_on.h" #include "test_source.c" ! #ifdef HAVE_PRINTF_LONGDOUBLE #include "test_io.c" #endif --- 62,66 ---- #include "templates_on.h" #include "test_source.c" ! #if HAVE_PRINTF_LONGDOUBLE #include "test_io.c" #endif *************** *** 139,143 **** void my_error_handler (const char *reason, const char *file, ! int line, int err); int --- 139,143 ---- void my_error_handler (const char *reason, const char *file, ! int line, int err); int *************** *** 163,167 **** test_text (); test_float_text (); ! #ifdef HAVE_PRINTF_LONGDOUBLE test_long_double_text (); #endif --- 163,167 ---- test_text (); test_float_text (); ! #if HAVE_PRINTF_LONGDOUBLE test_long_double_text (); #endif *************** *** 176,180 **** test_complex_text (); test_complex_float_text (); ! #ifdef HAVE_PRINTF_LONGDOUBLE test_complex_long_double_text (); #endif --- 176,180 ---- test_complex_text (); test_complex_float_text (); ! #if HAVE_PRINTF_LONGDOUBLE test_complex_long_double_text (); #endif *************** *** 194,199 **** test_complex_float_binary (); test_complex_long_double_binary (); - - gsl_warnings_off = 1; gsl_set_error_handler (&my_error_handler); --- 194,197 ---- diff -x.info* -rc2P gsl-1.3/block/test_complex_io.c gsl-1.4/block/test_complex_io.c *** gsl-1.3/block/test_complex_io.c Sun Dec 15 19:17:09 2002 --- gsl-1.4/block/test_complex_io.c Fri Jul 25 15:18:07 2003 *************** *** 32,36 **** for (i = 0; i < N; i++) { ! v->data[2*i] = (ATOMIC)i ; v->data[2*i + 1] = (ATOMIC)(10*i + 1) ; }; --- 32,36 ---- for (i = 0; i < N; i++) { ! v->data[2*i] = (ATOMIC)i ; v->data[2*i + 1] = (ATOMIC)(10*i + 1) ; }; *************** *** 53,58 **** for (i = 0; i < N; i++) { ! if (w->data[2 * i] != (ATOMIC) i || w->data[2 * i + 1] != (ATOMIC) (10*i + 1)) ! status = 1; }; fclose (f); --- 53,58 ---- for (i = 0; i < N; i++) { ! if (w->data[2 * i] != (ATOMIC) i || w->data[2 * i + 1] != (ATOMIC) (10*i + 1)) ! status = 1; }; fclose (f); diff -x.info* -rc2P gsl-1.3/block/test_complex_source.c gsl-1.4/block/test_complex_source.c *** gsl-1.3/block/test_complex_source.c Sun Dec 15 19:17:09 2002 --- gsl-1.4/block/test_complex_source.c Fri Jul 25 15:18:07 2003 *************** *** 40,44 **** gsl_test (size != N, NAME (gsl_block) "_size returns valid size"); ! FUNCTION (gsl_block, free) (b); /* free whatever is in v */ b = FUNCTION (gsl_block, calloc) (N); --- 40,44 ---- gsl_test (size != N, NAME (gsl_block) "_size returns valid size"); ! FUNCTION (gsl_block, free) (b); /* free whatever is in v */ b = FUNCTION (gsl_block, calloc) (N); *************** *** 58,62 **** { if (b->data[2 * i] != 0.0 || b->data[2 * i + 1] != 0.0) ! status = 1; }; --- 58,62 ---- { if (b->data[2 * i] != 0.0 || b->data[2 * i + 1] != 0.0) ! status = 1; }; *************** *** 78,82 **** for (i = 0; i < N; i++) { ! v->data[2*i] = (ATOMIC)(N - i); v->data[2*i + 1] = (ATOMIC)(10*(N-i) + 1); }; --- 78,82 ---- for (i = 0; i < N; i++) { ! v->data[2*i] = (ATOMIC)(N - i); v->data[2*i + 1] = (ATOMIC)(10*(N-i) + 1); }; *************** *** 99,104 **** for (i = 0; i < N; i++) { ! if (w->data[2 * i] != (ATOMIC) (N - i) || w->data[2 * i + 1] != (ATOMIC) (10*(N - i) + 1)) ! status = 1; }; fclose (f); --- 99,104 ---- for (i = 0; i < N; i++) { ! if (w->data[2 * i] != (ATOMIC) (N - i) || w->data[2 * i + 1] != (ATOMIC) (10*(N - i) + 1)) ! status = 1; }; fclose (f); diff -x.info* -rc2P gsl-1.3/block/test_io.c gsl-1.4/block/test_io.c *** gsl-1.3/block/test_io.c Sun Dec 15 19:17:09 2002 --- gsl-1.4/block/test_io.c Fri Jul 25 15:18:07 2003 *************** *** 32,36 **** for (i = 0; i < N; i++) { ! v->data[i] = (ATOMIC) i; }; --- 32,36 ---- for (i = 0; i < N; i++) { ! v->data[i] = (ATOMIC) i; }; *************** *** 52,57 **** for (i = 0; i < N; i++) { ! if (w->data[i] != (ATOMIC) i) ! status = 1; }; --- 52,57 ---- for (i = 0; i < N; i++) { ! if (w->data[i] != (ATOMIC) i) ! status = 1; }; diff -x.info* -rc2P gsl-1.3/block/test_source.c gsl-1.4/block/test_source.c *** gsl-1.3/block/test_source.c Sun Dec 15 19:17:09 2002 --- gsl-1.4/block/test_source.c Fri Jul 25 15:18:07 2003 *************** *** 41,45 **** ! FUNCTION (gsl_block, free) (v); /* free whatever is in v */ v = FUNCTION (gsl_block, calloc) (N); --- 41,45 ---- ! FUNCTION (gsl_block, free) (v); /* free whatever is in v */ v = FUNCTION (gsl_block, calloc) (N); *************** *** 59,68 **** { if (v->data[i] != 0.0) ! status = 1; }; gsl_test (status, NAME (gsl_block) "_calloc initializes array to zero"); ! FUNCTION (gsl_block, free) (v); /* free whatever is in v */ } --- 59,68 ---- { if (v->data[i] != 0.0) ! status = 1; }; gsl_test (status, NAME (gsl_block) "_calloc initializes array to zero"); ! FUNCTION (gsl_block, free) (v); /* free whatever is in v */ } *************** *** 80,84 **** for (i = 0; i < N; i++) { ! v->data[i] = (ATOMIC)(N - i); }; --- 80,84 ---- for (i = 0; i < N; i++) { ! v->data[i] = (ATOMIC)(N - i); }; *************** *** 101,106 **** for (i = 0; i < N; i++) { ! if (w->data[i] != (ATOMIC) (N - i)) ! status = 1; }; --- 101,106 ---- for (i = 0; i < N; i++) { ! if (w->data[i] != (ATOMIC) (N - i)) ! status = 1; }; diff -x.info* -rc2P gsl-1.3/cblas/ChangeLog gsl-1.4/cblas/ChangeLog *** gsl-1.3/cblas/ChangeLog Tue Feb 19 20:50:36 2002 --- gsl-1.4/cblas/ChangeLog Tue Jan 21 21:54:43 2003 *************** *** 1,2 **** --- 1,6 ---- + 2003-01-21 Brian Gough + + * test.m: skip trans=113 for complex matrix on SYRK tests. + Tue Feb 19 20:50:27 2002 Brian Gough diff -x.info* -rc2P gsl-1.3/cblas/Makefile.in gsl-1.4/cblas/Makefile.in *** gsl-1.3/cblas/Makefile.in Wed Dec 18 22:37:56 2002 --- gsl-1.4/cblas/Makefile.in Thu Aug 14 12:30:40 2003 *************** *** 1,5 **** ! # Makefile.in generated automatically by automake 1.4-p5 from Makefile.am ! # Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, --- 1,7 ---- ! # Makefile.in generated by automake 1.7.5 from Makefile.am. ! # @configure_input@ ! # Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 ! # Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, *************** *** 11,55 **** # PARTICULAR PURPOSE. ! ! SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ - prefix = @prefix@ - exec_prefix = @exec_prefix@ - - bindir = @bindir@ - sbindir = @sbindir@ - libexecdir = @libexecdir@ - datadir = @datadir@ - sysconfdir = @sysconfdir@ - sharedstatedir = @sharedstatedir@ - localstatedir = @localstatedir@ - libdir = @libdir@ - infodir = @infodir@ - mandir = @mandir@ - includedir = @includedir@ - oldincludedir = /usr/include - - DESTDIR = - pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ - top_builddir = .. ! ACLOCAL = @ACLOCAL@ ! AUTOCONF = @AUTOCONF@ ! AUTOMAKE = @AUTOMAKE@ ! AUTOHEADER = @AUTOHEADER@ ! INSTALL = @INSTALL@ ! INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) ! INSTALL_DATA = @INSTALL_DATA@ ! INSTALL_SCRIPT = @INSTALL_SCRIPT@ ! transform = @program_transform_name@ ! NORMAL_INSTALL = : PRE_INSTALL = : --- 13,33 ---- # PARTICULAR PURPOSE. ! @SET_MAKE@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. ! am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ ! install_sh_DATA = $(install_sh) -c -m 644 ! install_sh_PROGRAM = $(install_sh) -c ! install_sh_SCRIPT = $(install_sh) -c ! INSTALL_HEADER = $(INSTALL_DATA) ! transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : *************** *** 58,69 **** PRE_UNINSTALL = : POST_UNINSTALL = : - host_alias = @host_alias@ host_triplet = @host@ AR = @AR@ ! AS = @AS@ CC = @CC@ CPP = @CPP@ ! DLLTOOL = @DLLTOOL@ ECHO = @ECHO@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ --- 36,58 ---- PRE_UNINSTALL = : POST_UNINSTALL = : host_triplet = @host@ + ACLOCAL = @ACLOCAL@ + AMTAR = @AMTAR@ AR = @AR@ ! AUTOCONF = @AUTOCONF@ ! AUTOHEADER = @AUTOHEADER@ ! AUTOMAKE = @AUTOMAKE@ ! AWK = @AWK@ CC = @CC@ + CFLAGS = @CFLAGS@ CPP = @CPP@ ! CPPFLAGS = @CPPFLAGS@ ! CYGPATH_W = @CYGPATH_W@ ! DEFS = @DEFS@ ECHO = @ECHO@ + ECHO_C = @ECHO_C@ + ECHO_N = @ECHO_N@ + ECHO_T = @ECHO_T@ + EGREP = @EGREP@ EXEEXT = @EXEEXT@ GSL_CFLAGS = @GSL_CFLAGS@ *************** *** 71,88 **** GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ - OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ STRIP = @STRIP@ VERSION = @VERSION@ ! lib_LTLIBRARIES = libgslcblas.la libgslcblas_la_LDFLAGS = -version-info $(GSL_LT_CBLAS_VERSION) --- 60,144 ---- GSL_LT_CBLAS_VERSION = @GSL_LT_CBLAS_VERSION@ GSL_LT_VERSION = @GSL_LT_VERSION@ + HAVE_AIX_IEEE_INTERFACE = @HAVE_AIX_IEEE_INTERFACE@ + HAVE_DARWIN_IEEE_INTERFACE = @HAVE_DARWIN_IEEE_INTERFACE@ + HAVE_EXTENDED_PRECISION_REGISTERS = @HAVE_EXTENDED_PRECISION_REGISTERS@ + HAVE_FREEBSD_IEEE_INTERFACE = @HAVE_FREEBSD_IEEE_INTERFACE@ + HAVE_GNUM68K_IEEE_INTERFACE = @HAVE_GNUM68K_IEEE_INTERFACE@ + HAVE_GNUPPC_IEEE_INTERFACE = @HAVE_GNUPPC_IEEE_INTERFACE@ + HAVE_GNUSPARC_IEEE_INTERFACE = @HAVE_GNUSPARC_IEEE_INTERFACE@ + HAVE_GNUX86_IEEE_INTERFACE = @HAVE_GNUX86_IEEE_INTERFACE@ + HAVE_HPUX11_IEEE_INTERFACE = @HAVE_HPUX11_IEEE_INTERFACE@ + HAVE_HPUX_IEEE_INTERFACE = @HAVE_HPUX_IEEE_INTERFACE@ HAVE_IEEE_COMPARISONS = @HAVE_IEEE_COMPARISONS@ HAVE_IEEE_DENORMALS = @HAVE_IEEE_DENORMALS@ HAVE_INLINE = @HAVE_INLINE@ + HAVE_IRIX_IEEE_INTERFACE = @HAVE_IRIX_IEEE_INTERFACE@ + HAVE_NETBSD_IEEE_INTERFACE = @HAVE_NETBSD_IEEE_INTERFACE@ + HAVE_OPENBSD_IEEE_INTERFACE = @HAVE_OPENBSD_IEEE_INTERFACE@ + HAVE_OS2EMX_IEEE_INTERFACE = @HAVE_OS2EMX_IEEE_INTERFACE@ + HAVE_PRINTF_LONGDOUBLE = @HAVE_PRINTF_LONGDOUBLE@ + HAVE_SOLARIS_IEEE_INTERFACE = @HAVE_SOLARIS_IEEE_INTERFACE@ + HAVE_SUNOS4_IEEE_INTERFACE = @HAVE_SUNOS4_IEEE_INTERFACE@ + HAVE_TRU64_IEEE_INTERFACE = @HAVE_TRU64_IEEE_INTERFACE@ + INSTALL_DATA = @INSTALL_DATA@ + INSTALL_PROGRAM = @INSTALL_PROGRAM@ + INSTALL_SCRIPT = @INSTALL_SCRIPT@ + INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ + LDFLAGS = @LDFLAGS@ + LIBOBJS = @LIBOBJS@ + LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ + LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ + MAINTAINER_MODE_FALSE = @MAINTAINER_MODE_FALSE@ + MAINTAINER_MODE_TRUE = @MAINTAINER_MODE_TRUE@ MAKEINFO = @MAKEINFO@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ + PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ + PACKAGE_NAME = @PACKAGE_NAME@ + PACKAGE_STRING = @PACKAGE_STRING@ + PACKAGE_TARNAME = @PACKAGE_TARNAME@ + PACKAGE_VERSION = @PACKAGE_VERSION@ + PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ + RELEASED = @RELEASED@ + SET_MAKE = @SET_MAKE@ + SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ ! ac_ct_AR = @ac_ct_AR@ ! ac_ct_CC = @ac_ct_CC@ ! ac_ct_RANLIB = @ac_ct_RANLIB@ ! ac_ct_STRIP = @ac_ct_STRIP@ ! am__leading_dot = @am__leading_dot@ ! bindir = @bindir@ ! build = @build@ ! build_alias = @build_alias@ ! build_cpu = @build_cpu@ ! build_os = @build_os@ ! build_vendor = @build_vendor@ ! datadir = @datadir@ ! exec_prefix = @exec_prefix@ ! host = @host@ ! host_alias = @host_alias@ ! host_cpu = @host_cpu@ ! host_os = @host_os@ ! host_vendor = @host_vendor@ ! includedir = @includedir@ ! infodir = @infodir@ ! install_sh = @install_sh@ ! libdir = @libdir@ ! libexecdir = @libexecdir@ ! localstatedir = @localstatedir@ ! mandir = @mandir@ ! oldincludedir = @oldincludedir@ ! prefix = @prefix@ ! program_transform_name = @program_transform_name@ ! sbindir = @sbindir@ ! sharedstatedir = @sharedstatedir@ ! sysconfdir = @sysconfdir@ ! target_alias = @target_alias@ lib_LTLIBRARIES = libgslcblas.la libgslcblas_la_LDFLAGS = -version-info $(GSL_LT_CBLAS_VERSION) *************** *** 101,191 **** test_LDADD = libgslcblas.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la test_SOURCES = test.c test_amax.c test_asum.c test_axpy.c test_copy.c test_dot.c test_gbmv.c test_gemm.c test_gemv.c test_ger.c test_hbmv.c test_hemm.c test_hemv.c test_her.c test_her2.c test_her2k.c test_herk.c test_hpmv.c test_hpr.c test_hpr2.c test_nrm2.c test_rot.c test_rotg.c test_rotm.c test_rotmg.c test_sbmv.c test_scal.c test_spmv.c test_spr.c test_spr2.c test_swap.c test_symm.c test_symv.c test_syr.c test_syr2.c test_syr2k.c test_syrk.c test_tbmv.c test_tbsv.c test_tpmv.c test_tpsv.c test_trmm.c test_trmv.c test_trsm.c test_trsv.c mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs ! CONFIG_HEADER = ../config.h ! CONFIG_CLEAN_FILES = ! LTLIBRARIES = $(lib_LTLIBRARIES) ! ! ! DEFS = @DEFS@ -I. -I$(srcdir) -I.. ! CPPFLAGS = @CPPFLAGS@ ! LDFLAGS = @LDFLAGS@ ! LIBS = @LIBS@ ! libgslcblas_la_LIBADD = ! libgslcblas_la_OBJECTS = sasum.lo saxpy.lo scasum.lo scnrm2.lo scopy.lo \ ! sdot.lo sdsdot.lo sgbmv.lo sgemm.lo sgemv.lo sger.lo snrm2.lo srot.lo \ ! srotg.lo srotm.lo srotmg.lo ssbmv.lo sscal.lo sspmv.lo sspr.lo sspr2.lo \ ! sswap.lo ssymm.lo ssymv.lo ssyr.lo ssyr2.lo ssyr2k.lo ssyrk.lo stbmv.lo \ ! stbsv.lo stpmv.lo stpsv.lo strmm.lo strmv.lo strsm.lo strsv.lo dasum.lo \ ! daxpy.lo dcopy.lo ddot.lo dgbmv.lo dgemm.lo dgemv.lo dger.lo dnrm2.lo \ ! drot.lo drotg.lo drotm.lo drotmg.lo dsbmv.lo dscal.lo dsdot.lo dspmv.lo \ ! dspr.lo dspr2.lo dswap.lo dsymm.lo dsymv.lo dsyr.lo dsyr2.lo dsyr2k.lo \ ! dsyrk.lo dtbmv.lo dtbsv.lo dtpmv.lo dtpsv.lo dtrmm.lo dtrmv.lo dtrsm.lo \ ! dtrsv.lo dzasum.lo dznrm2.lo caxpy.lo ccopy.lo cdotc_sub.lo \ ! cdotu_sub.lo cgbmv.lo cgemm.lo cgemv.lo cgerc.lo cgeru.lo chbmv.lo \ ! chemm.lo chemv.lo cher.lo cher2.lo cher2k.lo cherk.lo chpmv.lo chpr.lo \ ! chpr2.lo cscal.lo csscal.lo cswap.lo csymm.lo csyr2k.lo csyrk.lo \ ! ctbmv.lo ctbsv.lo ctpmv.lo ctpsv.lo ctrmm.lo ctrmv.lo ctrsm.lo ctrsv.lo \ ! zaxpy.lo zcopy.lo zdotc_sub.lo zdotu_sub.lo zdscal.lo zgbmv.lo zgemm.lo \ ! zgemv.lo zgerc.lo zgeru.lo zhbmv.lo zhemm.lo zhemv.lo zher.lo zher2.lo \ ! zher2k.lo zherk.lo zhpmv.lo zhpr.lo zhpr2.lo zscal.lo zswap.lo zsymm.lo \ ! zsyr2k.lo zsyrk.lo ztbmv.lo ztbsv.lo ztpmv.lo ztpsv.lo ztrmm.lo \ ! ztrmv.lo ztrsm.lo ztrsv.lo icamax.lo idamax.lo isamax.lo izamax.lo \ ! xerbla.lo ! check_PROGRAMS = test$(EXEEXT) ! test_OBJECTS = test.$(OBJEXT) test_amax.$(OBJEXT) test_asum.$(OBJEXT) \ ! test_axpy.$(OBJEXT) test_copy.$(OBJEXT) test_dot.$(OBJEXT) \ ! test_gbmv.$(OBJEXT) test_gemm.$(OBJEXT) test_gemv.$(OBJEXT) \ ! test_ger.$(OBJEXT) test_hbmv.$(OBJEXT) test_hemm.$(OBJEXT) \ ! test_hemv.$(OBJEXT) test_her.$(OBJEXT) test_her2.$(OBJEXT) \ ! test_her2k.$(OBJEXT) test_herk.$(OBJEXT) test_hpmv.$(OBJEXT) \ ! test_hpr.$(OBJEXT) test_hpr2.$(OBJEXT) test_nrm2.$(OBJEXT) \ ! test_rot.$(OBJEXT) test_rotg.$(OBJEXT) test_rotm.$(OBJEXT) \ ! test_rotmg.$(OBJEXT) test_sbmv.$(OBJEXT) test_scal.$(OBJEXT) \ ! test_spmv.$(OBJEXT) test_spr.$(OBJEXT) test_spr2.$(OBJEXT) \ ! test_swap.$(OBJEXT) test_symm.$(OBJEXT) test_symv.$(OBJEXT) \ ! test_syr.$(OBJEXT) test_syr2.$(OBJEXT) test_syr2k.$(OBJEXT) \ ! test_syrk.$(OBJEXT) test_tbmv.$(OBJEXT) test_tbsv.$(OBJEXT) \ ! test_tpmv.$(OBJEXT) test_tpsv.$(OBJEXT) test_trmm.$(OBJEXT) \ ! test_trmv.$(OBJEXT) test_trsm.$(OBJEXT) test_trsv.$(OBJEXT) ! test_DEPENDENCIES = libgslcblas.la ../ieee-utils/libgslieeeutils.la \ ! ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la ! test_LDFLAGS = ! CFLAGS = @CFLAGS@ ! COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ ! HEADERS = $(noinst_HEADERS) $(pkginclude_HEADERS) ! ! DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO ! ! DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) ! ! TAR = tar ! GZIP_ENV = --best SOURCES = $(libgslcblas_la_SOURCES) $(test_SOURCES) - OBJECTS = $(libgslcblas_la_OBJECTS) $(test_OBJECTS) - - all: all-redirect - .SUFFIXES: - .SUFFIXES: .S .c .lo .o .obj .s - $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) - cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps cblas/Makefile - - Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status - cd $(top_builddir) \ - && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status ! mostlyclean-libLTLIBRARIES: ! ! clean-libLTLIBRARIES: ! -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) ! ! distclean-libLTLIBRARIES: ! ! maintainer-clean-libLTLIBRARIES: ! install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) --- 157,239 ---- test_LDADD = libgslcblas.la ../ieee-utils/libgslieeeutils.la ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la test_SOURCES = test.c test_amax.c test_asum.c test_axpy.c test_copy.c test_dot.c test_gbmv.c test_gemm.c test_gemv.c test_ger.c test_hbmv.c test_hemm.c test_hemv.c test_her.c test_her2.c test_her2k.c test_herk.c test_hpmv.c test_hpr.c test_hpr2.c test_nrm2.c test_rot.c test_rotg.c test_rotm.c test_rotmg.c test_sbmv.c test_scal.c test_spmv.c test_spr.c test_spr2.c test_swap.c test_symm.c test_symv.c test_syr.c test_syr2.c test_syr2k.c test_syrk.c test_tbmv.c test_tbsv.c test_tpmv.c test_tpsv.c test_trmm.c test_trmv.c test_trsm.c test_trsv.c + subdir = cblas + ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs ! CONFIG_HEADER = $(top_builddir)/config.h ! CONFIG_CLEAN_FILES = ! LTLIBRARIES = $(lib_LTLIBRARIES) ! ! libgslcblas_la_LIBADD = ! am_libgslcblas_la_OBJECTS = sasum.lo saxpy.lo scasum.lo scnrm2.lo \ ! scopy.lo sdot.lo sdsdot.lo sgbmv.lo sgemm.lo sgemv.lo sger.lo \ ! snrm2.lo srot.lo srotg.lo srotm.lo srotmg.lo ssbmv.lo sscal.lo \ ! sspmv.lo sspr.lo sspr2.lo sswap.lo ssymm.lo ssymv.lo ssyr.lo \ ! ssyr2.lo ssyr2k.lo ssyrk.lo stbmv.lo stbsv.lo stpmv.lo stpsv.lo \ ! strmm.lo strmv.lo strsm.lo strsv.lo dasum.lo daxpy.lo dcopy.lo \ ! ddot.lo dgbmv.lo dgemm.lo dgemv.lo dger.lo dnrm2.lo drot.lo \ ! drotg.lo drotm.lo drotmg.lo dsbmv.lo dscal.lo dsdot.lo dspmv.lo \ ! dspr.lo dspr2.lo dswap.lo dsymm.lo dsymv.lo dsyr.lo dsyr2.lo \ ! dsyr2k.lo dsyrk.lo dtbmv.lo dtbsv.lo dtpmv.lo dtpsv.lo dtrmm.lo \ ! dtrmv.lo dtrsm.lo dtrsv.lo dzasum.lo dznrm2.lo caxpy.lo \ ! ccopy.lo cdotc_sub.lo cdotu_sub.lo cgbmv.lo cgemm.lo cgemv.lo \ ! cgerc.lo cgeru.lo chbmv.lo chemm.lo chemv.lo cher.lo cher2.lo \ ! cher2k.lo cherk.lo chpmv.lo chpr.lo chpr2.lo cscal.lo csscal.lo \ ! cswap.lo csymm.lo csyr2k.lo csyrk.lo ctbmv.lo ctbsv.lo ctpmv.lo \ ! ctpsv.lo ctrmm.lo ctrmv.lo ctrsm.lo ctrsv.lo zaxpy.lo zcopy.lo \ ! zdotc_sub.lo zdotu_sub.lo zdscal.lo zgbmv.lo zgemm.lo zgemv.lo \ ! zgerc.lo zgeru.lo zhbmv.lo zhemm.lo zhemv.lo zher.lo zher2.lo \ ! zher2k.lo zherk.lo zhpmv.lo zhpr.lo zhpr2.lo zscal.lo zswap.lo \ ! zsymm.lo zsyr2k.lo zsyrk.lo ztbmv.lo ztbsv.lo ztpmv.lo ztpsv.lo \ ! ztrmm.lo ztrmv.lo ztrsm.lo ztrsv.lo icamax.lo idamax.lo \ ! isamax.lo izamax.lo xerbla.lo ! libgslcblas_la_OBJECTS = $(am_libgslcblas_la_OBJECTS) ! check_PROGRAMS = test$(EXEEXT) ! am_test_OBJECTS = test.$(OBJEXT) test_amax.$(OBJEXT) test_asum.$(OBJEXT) \ ! test_axpy.$(OBJEXT) test_copy.$(OBJEXT) test_dot.$(OBJEXT) \ ! test_gbmv.$(OBJEXT) test_gemm.$(OBJEXT) test_gemv.$(OBJEXT) \ ! test_ger.$(OBJEXT) test_hbmv.$(OBJEXT) test_hemm.$(OBJEXT) \ ! test_hemv.$(OBJEXT) test_her.$(OBJEXT) test_her2.$(OBJEXT) \ ! test_her2k.$(OBJEXT) test_herk.$(OBJEXT) test_hpmv.$(OBJEXT) \ ! test_hpr.$(OBJEXT) test_hpr2.$(OBJEXT) test_nrm2.$(OBJEXT) \ ! test_rot.$(OBJEXT) test_rotg.$(OBJEXT) test_rotm.$(OBJEXT) \ ! test_rotmg.$(OBJEXT) test_sbmv.$(OBJEXT) test_scal.$(OBJEXT) \ ! test_spmv.$(OBJEXT) test_spr.$(OBJEXT) test_spr2.$(OBJEXT) \ ! test_swap.$(OBJEXT) test_symm.$(OBJEXT) test_symv.$(OBJEXT) \ ! test_syr.$(OBJEXT) test_syr2.$(OBJEXT) test_syr2k.$(OBJEXT) \ ! test_syrk.$(OBJEXT) test_tbmv.$(OBJEXT) test_tbsv.$(OBJEXT) \ ! test_tpmv.$(OBJEXT) test_tpsv.$(OBJEXT) test_trmm.$(OBJEXT) \ ! test_trmv.$(OBJEXT) test_trsm.$(OBJEXT) test_trsv.$(OBJEXT) ! test_OBJECTS = $(am_test_OBJECTS) ! test_DEPENDENCIES = libgslcblas.la ../ieee-utils/libgslieeeutils.la \ ! ../err/libgslerr.la ../test/libgsltest.la ../sys/libgslsys.la ! test_LDFLAGS = ! ! DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) ! depcomp = ! am__depfiles_maybe = ! COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ ! $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) ! LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) \ ! $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) ! LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ ! $(AM_LDFLAGS) $(LDFLAGS) -o $@ ! DIST_SOURCES = $(libgslcblas_la_SOURCES) $(test_SOURCES) ! HEADERS = $(noinst_HEADERS) $(pkginclude_HEADERS) ! DIST_COMMON = $(noinst_HEADERS) $(pkginclude_HEADERS) ChangeLog \ ! Makefile.am Makefile.in TODO SOURCES = $(libgslcblas_la_SOURCES) $(test_SOURCES) + all: all-am ! .SUFFIXES: ! .SUFFIXES: .c .lo .o .obj ! $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(top_srcdir)/configure.ac $(ACLOCAL_M4) ! cd $(top_srcdir) && \ ! $(AUTOMAKE) --gnu cblas/Makefile ! Makefile: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.in $(top_builddir)/config.status ! cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe) ! libLTLIBRARIES_INSTALL = $(INSTALL) install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) *************** *** 193,198 **** @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ ! echo "$(LIBTOOL) --mode=install $(INSTALL) $$p $(DESTDIR)$(libdir)/$$p"; \ ! $(LIBTOOL) --mode=install $(INSTALL) $$p $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done --- 241,247 ---- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(libdir)/$$f"; \ ! $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(libdir)/$$f; \ else :; fi; \ done *************** *** 200,240 **** uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) ! list='$(lib_LTLIBRARIES)'; for p in $$list; do \ ! $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p; \ done ! .c.o: ! $(COMPILE) -c $< ! ! # FIXME: We should only use cygpath when building on Windows, ! # and only if it is available. ! .c.obj: ! $(COMPILE) -c `cygpath -w $<` ! ! .s.o: ! $(COMPILE) -c $< ! .S.o: ! $(COMPILE) -c $< mostlyclean-compile: ! -rm -f *.o core *.core ! -rm -f *.$(OBJEXT) ! ! clean-compile: distclean-compile: -rm -f *.tab.c ! maintainer-clean-compile: ! ! .c.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! .s.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< ! .S.lo: ! $(LIBTOOL) --mode=compile $(COMPILE) -c $< mostlyclean-libtool: --- 249,293 ---- uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) ! @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ ! p="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p"; \ ! $(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p; \ done ! clean-libLTLIBRARIES: ! -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) ! @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ ! dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ ! test "$$dir" = "$$p" && dir=.; \ ! echo "rm -f \"$${dir}/so_locations\""; \ ! rm -f "$${dir}/so_locations"; \ ! done ! libgslcblas.la: $(libgslcblas_la_OBJECTS) $(libgslcblas_la_DEPENDENCIES) ! $(LINK) -rpath $(libdir) $(libgslcblas_la_LDFLAGS) $(libgslcblas_la_OBJECTS) $(libgslcblas_la_LIBADD) $(LIBS) ! clean-checkPROGRAMS: ! @list='$(check_PROGRAMS)'; for p in $$list; do \ ! f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ ! echo " rm -f $$p $$f"; \ ! rm -f $$p $$f ; \ ! done ! test$(EXEEXT): $(test_OBJECTS) $(test_DEPENDENCIES) ! @rm -f test$(EXEEXT) ! $(LINK) $(test_LDFLAGS) $(test_OBJECTS) $(test_LDADD) $(LIBS) mostlyclean-compile: ! -rm -f *.$(OBJEXT) core *.core distclean-compile: -rm -f *.tab.c ! .c.o: ! $(COMPILE) -c `test -f '$<' || echo '$(srcdir)/'`$< ! .c.obj: ! $(COMPILE) -c `if test -f '$<'; then $(CYGPATH_W) '$<'; else $(CYGPATH_W) '$(srcdir)/$<'; fi` ! .c.lo: ! $(LTCOMPILE) -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$< mostlyclean-libtool: *************** *** 245,381 **** distclean-libtool: ! ! maintainer-clean-libtool: ! ! libgslcblas.la: $(libgslcblas_la_OBJECTS) $(libgslcblas_la_DEPENDENCIES) ! $(LINK) -rpath $(libdir) $(libgslcblas_la_LDFLAGS) $(libgslcblas_la_OBJECTS) $(libgslcblas_la_LIBADD) $(LIBS) ! ! mostlyclean-checkPROGRAMS: ! ! clean-checkPROGRAMS: ! -test -z "$(check_PROGRAMS)" || rm -f $(check_PROGRAMS) ! ! distclean-checkPROGRAMS: ! ! maintainer-clean-checkPROGRAMS: ! ! test$(EXEEXT): $(test_OBJECTS) $(test_DEPENDENCIES) ! @rm -f test$(EXEEXT) ! $(LINK) $(test_LDFLAGS) $(test_OBJECTS) $(test_LDADD) $(LIBS) ! install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ ! echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p"; \ ! $(INSTALL_DATA) $$d$$p $(DESTDIR)$(pkgincludedir)/$$p; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$p; \ done tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! here=`pwd` && cd $(srcdir) \ ! && mkid -f$$here/ID $$unique $(LISP) ! TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ ! list='$(SOURCES) $(HEADERS)'; \ ! unique=`for i in $$list; do echo $$i; done | \ ! awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ ! || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) ! ! mostlyclean-tags: ! ! clean-tags: distclean-tags: ! -rm -f TAGS ID ! maintainer-clean-tags: ! ! distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) ! subdir = cblas distdir: $(DISTFILES) ! @for file in $(DISTFILES); do \ ! d=$(srcdir); \ if test -d $$d/$$file; then \ ! cp -pr $$d/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ ! || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ ! || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done - - check-TESTS: $(TESTS) - @failed=0; all=0; \ - srcdir=$(srcdir); export srcdir; \ - for tst in $(TESTS); do \ - if test -f $$tst; then dir=.; \ - else dir="$(srcdir)"; fi; \ - if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \ - all=`expr $$all + 1`; \ - echo "PASS: $$tst"; \ - elif test $$? -ne 77; then \ - all=`expr $$all + 1`; \ - failed=`expr $$failed + 1`; \ - echo "FAIL: $$tst"; \ - fi; \ - done; \ - if test "$$failed" -eq 0; then \ - banner="All $$all tests passed"; \ - else \ - banner="$$failed of $$all tests failed"; \ - fi; \ - dashes=`echo "$$banner" | sed s/./=/g`; \ - echo "$$dashes"; \ - echo "$$banner"; \ - echo "$$dashes"; \ - test "$$failed" -eq 0 - info-am: - info: info-am - dvi-am: - dvi: dvi-am check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am ! installcheck-am: ! installcheck: installcheck-am ! install-exec-am: install-libLTLIBRARIES ! install-exec: install-exec-am ! install-data-am: install-pkgincludeHEADERS install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am - install: install-am - uninstall-am: uninstall-libLTLIBRARIES uninstall-pkgincludeHEADERS - uninstall: uninstall-am - all-am: Makefile $(LTLIBRARIES) $(HEADERS) - all-redirect: all-am - install-strip: - $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install - installdirs: - $(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(pkgincludedir) - mostlyclean-generic: --- 298,502 ---- distclean-libtool: ! -rm -f libtool ! uninstall-info-am: ! pkgincludeHEADERS_INSTALL = $(INSTALL_HEADER) install-pkgincludeHEADERS: $(pkginclude_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgincludedir) @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f"; \ ! $(pkgincludeHEADERS_INSTALL) $$d$$p $(DESTDIR)$(pkgincludedir)/$$f; \ done uninstall-pkgincludeHEADERS: @$(NORMAL_UNINSTALL) ! @list='$(pkginclude_HEADERS)'; for p in $$list; do \ ! f="`echo $$p | sed -e 's|^.*/||'`"; \ ! echo " rm -f $(DESTDIR)$(pkgincludedir)/$$f"; \ ! rm -f $(DESTDIR)$(pkgincludedir)/$$f; \ done + ETAGS = etags + ETAGSFLAGS = + + CTAGS = ctags + CTAGSFLAGS = + tags: TAGS ! ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! mkid -fID $$unique ! TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ ! test -z "$(ETAGS_ARGS)$$tags$$unique" \ ! || $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ ! $$tags $$unique ! ! ctags: CTAGS ! CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ ! $(TAGS_FILES) $(LISP) ! tags=; \ ! here=`pwd`; \ ! list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ ! unique=`for i in $$list; do \ ! if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ ! done | \ ! $(AWK) ' { files[$$0] = 1; } \ ! END { for (i in files) print i; }'`; \ ! test -z "$(CTAGS_ARGS)$$tags$$unique" \ ! || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ ! $$tags $$unique ! ! GTAGS: ! here=`$(am__cd) $(top_builddir) && pwd` \ ! && cd $(top_srcdir) \ ! && gtags -i $(GTAGS_ARGS) $$here distclean-tags: ! -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags ! check-TESTS: $(TESTS) ! @failed=0; all=0; xfail=0; xpass=0; skip=0; \ ! srcdir=$(srcdir); export srcdir; \ ! list='$(TESTS)'; \ ! if test -n "$$list"; then \ ! for tst in $$list; do \ ! if test -f ./$$tst; then dir=./; \ ! elif test -f $$tst; then dir=; \ ! else dir="$(srcdir)/"; fi; \ ! if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ ! all=`expr $$all + 1`; \ ! case " $(XFAIL_TESTS) " in \ ! *" $$tst "*) \ ! xpass=`expr $$xpass + 1`; \ ! failed=`expr $$failed + 1`; \ ! echo "XPASS: $$tst"; \ ! ;; \ ! *) \ ! echo "PASS: $$tst"; \ ! ;; \ ! esac; \ ! elif test $$? -ne 77; then \ ! all=`expr $$all + 1`; \ ! case " $(XFAIL_TESTS) " in \ ! *" $$tst "*) \ ! xfail=`expr $$xfail + 1`; \ ! echo "XFAIL: $$tst"; \ ! ;; \ ! *) \ ! failed=`expr $$failed + 1`; \ ! echo "FAIL: $$tst"; \ ! ;; \ ! esac; \ ! else \ ! skip=`expr $$skip + 1`; \ ! echo "SKIP: $$tst"; \ ! fi; \ ! done; \ ! if test "$$failed" -eq 0; then \ ! if test "$$xfail" -eq 0; then \ ! banner="All $$all tests passed"; \ ! else \ ! banner="All $$all tests behaved as expected ($$xfail expected failures)"; \ ! fi; \ ! else \ ! if test "$$xpass" -eq 0; then \ ! banner="$$failed of $$all tests failed"; \ ! else \ ! banner="$$failed of $$all tests did not behave as expected ($$xpass unexpected passes)"; \ ! fi; \ ! fi; \ ! dashes="$$banner"; \ ! skipped=""; \ ! if test "$$skip" -ne 0; then \ ! skipped="($$skip tests were not run)"; \ ! test `echo "$$skipped" | wc -c` -gt `echo "$$banner" | wc -c` && \ ! dashes="$$skipped"; \ ! fi; \ ! report=""; \ ! if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ ! report="Please report to $(PACKAGE_BUGREPORT)"; \ ! test `echo "$$report" | wc -c` -gt `echo "$$banner" | wc -c` && \ ! dashes="$$report"; \ ! fi; \ ! dashes=`echo "$$dashes" | sed s/./=/g`; \ ! echo "$$dashes"; \ ! echo "$$banner"; \ ! test -n "$$skipped" && echo "$$skipped"; \ ! test -n "$$report" && echo "$$report"; \ ! echo "$$dashes"; \ ! test "$$failed" -eq 0; \ ! else :; fi ! DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ! top_distdir = .. ! distdir = $(top_distdir)/$(PACKAGE)-$(VERSION) distdir: $(DISTFILES) ! @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ ! topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ ! list='$(DISTFILES)'; for file in $$list; do \ ! case $$file in \ ! $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ ! $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ ! esac; \ ! if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ ! dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ ! if test "$$dir" != "$$file" && test "$$dir" != "."; then \ ! dir="/$$dir"; \ ! $(mkinstalldirs) "$(distdir)$$dir"; \ ! else \ ! dir=''; \ ! fi; \ if test -d $$d/$$file; then \ ! if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ ! cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ ! fi; \ ! cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ ! || cp -p $$d/$$file $(distdir)/$$file \ ! || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am ! all-am: Makefile $(LTLIBRARIES) $(HEADERS) ! installdirs: ! $(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(pkgincludedir) ! install: install-am ! install-exec: install-exec-am install-data: install-data-am + uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + installcheck: installcheck-am + install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: *************** *** 384,434 **** distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: ! mostlyclean-am: mostlyclean-libLTLIBRARIES mostlyclean-compile \ ! mostlyclean-libtool mostlyclean-checkPROGRAMS \ ! mostlyclean-tags mostlyclean-generic ! mostlyclean: mostlyclean-am ! clean-am: clean-libLTLIBRARIES clean-compile clean-libtool \ ! clean-checkPROGRAMS clean-tags clean-generic \ ! mostlyclean-am ! clean: clean-am ! distclean-am: distclean-libLTLIBRARIES distclean-compile \ ! distclean-libtool distclean-checkPROGRAMS \ ! distclean-tags distclean-generic clean-am ! -rm -f libtool ! distclean: distclean-am ! maintainer-clean-am: maintainer-clean-libLTLIBRARIES \ ! maintainer-clean-compile maintainer-clean-libtool \ ! maintainer-clean-checkPROGRAMS maintainer-clean-tags \ ! maintainer-clean-generic distclean-am ! @echo "This command is intended for maintainers to use;" ! @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am ! .PHONY: mostlyclean-libLTLIBRARIES distclean-libLTLIBRARIES \ ! clean-libLTLIBRARIES maintainer-clean-libLTLIBRARIES \ ! uninstall-libLTLIBRARIES install-libLTLIBRARIES mostlyclean-compile \ ! distclean-compile clean-compile maintainer-clean-compile \ ! mostlyclean-libtool distclean-libtool clean-libtool \ ! maintainer-clean-libtool mostlyclean-checkPROGRAMS \ ! distclean-checkPROGRAMS clean-checkPROGRAMS \ ! maintainer-clean-checkPROGRAMS uninstall-pkgincludeHEADERS \ ! install-pkgincludeHEADERS tags mostlyclean-tags distclean-tags \ ! clean-tags maintainer-clean-tags distdir check-TESTS info-am info \ ! dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ ! install-exec install-data-am install-data install-am install \ ! uninstall-am uninstall all-redirect all-am all installdirs \ ! mostlyclean-generic distclean-generic clean-generic \ ! maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. --- 505,573 ---- distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) maintainer-clean-generic: ! @echo "This command is intended for maintainers to use" ! @echo "it deletes files that may require special tools to rebuild." ! clean: clean-am ! clean-am: clean-checkPROGRAMS clean-generic clean-libLTLIBRARIES \ ! clean-libtool mostlyclean-am ! distclean: distclean-am ! distclean-am: clean-am distclean-compile distclean-generic \ ! distclean-libtool distclean-tags ! dvi: dvi-am ! dvi-am: ! info: info-am ! ! info-am: ! ! install-data-am: install-pkgincludeHEADERS ! ! install-exec-am: install-libLTLIBRARIES ! ! install-info: install-info-am ! ! install-man: ! ! installcheck-am: maintainer-clean: maintainer-clean-am ! maintainer-clean-am: distclean-am maintainer-clean-generic ! ! mostlyclean: mostlyclean-am ! ! mostlyclean-am: mostlyclean-compile mostlyclean-generic \ ! mostlyclean-libtool ! ! pdf: pdf-am ! ! pdf-am: ! ! ps: ps-am + ps-am: + + uninstall-am: uninstall-info-am uninstall-libLTLIBRARIES \ + uninstall-pkgincludeHEADERS + + .PHONY: CTAGS GTAGS all all-am check check-TESTS check-am clean \ + clean-checkPROGRAMS clean-generic clean-libLTLIBRARIES \ + clean-libtool ctags distclean distclean-compile \ + distclean-generic distclean-libtool distclean-tags distdir dvi \ + dvi-am info info-am install install-am install-data \ + install-data-am install-exec install-exec-am install-info \ + install-info-am install-libLTLIBRARIES install-man \ + install-pkgincludeHEADERS install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags uninstall uninstall-am uninstall-info-am \ + uninstall-libLTLIBRARIES uninstall-pkgincludeHEADERS # Tell versions [3.59,3.63) of GNU make to not export all variables. diff -x.info* -rc2P gsl-1.3/cblas/caxpy.c gsl-1.4/cblas/caxpy.c *** gsl-1.3/cblas/caxpy.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/caxpy.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_caxpy (const int N, const void *alpha, const void *X, const int incX, ! void *Y, const int incY) { #define BASE float --- 5,9 ---- void cblas_caxpy (const int N, const void *alpha, const void *X, const int incX, ! void *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ccopy.c gsl-1.4/cblas/ccopy.c *** gsl-1.3/cblas/ccopy.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/ccopy.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_ccopy (const int N, const void *X, const int incX, void *Y, ! const int incY) { #define BASE float --- 5,9 ---- void cblas_ccopy (const int N, const void *X, const int incX, void *Y, ! const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cdotc_sub.c gsl-1.4/cblas/cdotc_sub.c *** gsl-1.3/cblas/cdotc_sub.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cdotc_sub.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_cdotc_sub (const int N, const void *X, const int incX, const void *Y, ! const int incY, void *result) { #define BASE float --- 5,9 ---- void cblas_cdotc_sub (const int N, const void *X, const int incX, const void *Y, ! const int incY, void *result) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cdotu_sub.c gsl-1.4/cblas/cdotu_sub.c *** gsl-1.3/cblas/cdotu_sub.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cdotu_sub.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_cdotu_sub (const int N, const void *X, const int incX, const void *Y, ! const int incY, void *result) { #define BASE float --- 5,9 ---- void cblas_cdotu_sub (const int N, const void *X, const int incX, const void *Y, ! const int incY, void *result) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cgbmv.c gsl-1.4/cblas/cgbmv.c *** gsl-1.3/cblas/cgbmv.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cgbmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_cgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const int KL, const int KU, ! const void *alpha, const void *A, const int lda, const void *X, ! const int incX, const void *beta, void *Y, const int incY) { #define BASE float --- 5,11 ---- void cblas_cgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const int KL, const int KU, ! const void *alpha, const void *A, const int lda, const void *X, ! const int incX, const void *beta, void *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cgemm.c gsl-1.4/cblas/cgemm.c *** gsl-1.3/cblas/cgemm.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cgemm.c Fri Jul 25 15:18:07 2003 *************** *** 5,12 **** void cblas_cgemm (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_TRANSPOSE TransB, const int M, const int N, ! const int K, const void *alpha, const void *A, const int lda, ! const void *B, const int ldb, const void *beta, void *C, ! const int ldc) { #define BASE float --- 5,12 ---- void cblas_cgemm (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_TRANSPOSE TransB, const int M, const int N, ! const int K, const void *alpha, const void *A, const int lda, ! const void *B, const int ldb, const void *beta, void *C, ! const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cgemv.c gsl-1.4/cblas/cgemv.c *** gsl-1.3/cblas/cgemv.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cgemv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_cgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const void *alpha, const void *A, ! const int lda, const void *X, const int incX, const void *beta, ! void *Y, const int incY) { #define BASE float --- 5,11 ---- void cblas_cgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const void *alpha, const void *A, ! const int lda, const void *X, const int incX, const void *beta, ! void *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cgerc.c gsl-1.4/cblas/cgerc.c *** gsl-1.3/cblas/cgerc.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cgerc.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_cgerc (const enum CBLAS_ORDER order, const int M, const int N, ! const void *alpha, const void *X, const int incX, const void *Y, ! const int incY, void *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_cgerc (const enum CBLAS_ORDER order, const int M, const int N, ! const void *alpha, const void *X, const int incX, const void *Y, ! const int incY, void *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cgeru.c gsl-1.4/cblas/cgeru.c *** gsl-1.3/cblas/cgeru.c Mon Nov 19 21:35:25 2001 --- gsl-1.4/cblas/cgeru.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_cgeru (const enum CBLAS_ORDER order, const int M, const int N, ! const void *alpha, const void *X, const int incX, const void *Y, ! const int incY, void *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_cgeru (const enum CBLAS_ORDER order, const int M, const int N, ! const void *alpha, const void *X, const int incX, const void *Y, ! const int incY, void *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/chbmv.c gsl-1.4/cblas/chbmv.c *** gsl-1.3/cblas/chbmv.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/chbmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_chbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const int K, const void *alpha, const void *A, ! const int lda, const void *X, const int incX, const void *beta, ! void *Y, const int incY) { #define BASE float --- 5,11 ---- void cblas_chbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const int K, const void *alpha, const void *A, ! const int lda, const void *X, const int incX, const void *beta, ! void *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/chemm.c gsl-1.4/cblas/chemm.c *** gsl-1.3/cblas/chemm.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/chemm.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_chemm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const void *beta, void *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_chemm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const void *beta, void *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/chemv.c gsl-1.4/cblas/chemv.c *** gsl-1.3/cblas/chemv.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/chemv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_chemv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *A, const int lda, ! const void *X, const int incX, const void *beta, void *Y, ! const int incY) { #define BASE float --- 5,11 ---- void cblas_chemv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *A, const int lda, ! const void *X, const int incX, const void *beta, void *Y, ! const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cher.c gsl-1.4/cblas/cher.c *** gsl-1.3/cblas/cher.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/cher.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_cher (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const void *X, const int incX, ! void *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_cher (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const void *X, const int incX, ! void *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cher2.c gsl-1.4/cblas/cher2.c *** gsl-1.3/cblas/cher2.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/cher2.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_cher2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *X, const int incX, ! const void *Y, const int incY, void *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_cher2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *X, const int incX, ! const void *Y, const int incY, void *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cher2k.c gsl-1.4/cblas/cher2k.c *** gsl-1.3/cblas/cher2k.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/cher2k.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_cher2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const float beta, void *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_cher2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const float beta, void *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/cherk.c gsl-1.4/cblas/cherk.c *** gsl-1.3/cblas/cherk.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/cherk.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_cherk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const float alpha, const void *A, const int lda, ! const float beta, void *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_cherk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const float alpha, const void *A, const int lda, ! const float beta, void *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/chpmv.c gsl-1.4/cblas/chpmv.c *** gsl-1.3/cblas/chpmv.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/chpmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_chpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *Ap, const void *X, ! const int incX, const void *beta, void *Y, const int incY) { #define BASE float --- 5,10 ---- void cblas_chpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *Ap, const void *X, ! const int incX, const void *beta, void *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/chpr.c gsl-1.4/cblas/chpr.c *** gsl-1.3/cblas/chpr.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/chpr.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_chpr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const void *X, const int incX, ! void *Ap) { #define BASE float --- 5,10 ---- void cblas_chpr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const void *X, const int incX, ! void *Ap) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/chpr2.c gsl-1.4/cblas/chpr2.c *** gsl-1.3/cblas/chpr2.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/chpr2.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_chpr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *X, const int incX, ! const void *Y, const int incY, void *Ap) { #define BASE float --- 5,10 ---- void cblas_chpr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const void *alpha, const void *X, const int incX, ! const void *Y, const int incY, void *Ap) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/csymm.c gsl-1.4/cblas/csymm.c *** gsl-1.3/cblas/csymm.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/csymm.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_csymm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const void *beta, void *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_csymm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const void *beta, void *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/csyr2k.c gsl-1.4/cblas/csyr2k.c *** gsl-1.3/cblas/csyr2k.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/csyr2k.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_csyr2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const void *beta, void *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_csyr2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const void *alpha, const void *A, const int lda, const void *B, ! const int ldb, const void *beta, void *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/csyrk.c gsl-1.4/cblas/csyrk.c *** gsl-1.3/cblas/csyrk.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/csyrk.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_csyrk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const void *alpha, const void *A, const int lda, ! const void *beta, void *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_csyrk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const void *alpha, const void *A, const int lda, ! const void *beta, void *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctbmv.c gsl-1.4/cblas/ctbmv.c *** gsl-1.3/cblas/ctbmv.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/ctbmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_ctbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const void *A, const int lda, void *X, ! const int incX) { #define BASE float --- 5,11 ---- void cblas_ctbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const void *A, const int lda, void *X, ! const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctbsv.c gsl-1.4/cblas/ctbsv.c *** gsl-1.3/cblas/ctbsv.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/ctbsv.c Fri Jul 25 15:18:07 2003 *************** *** 7,13 **** void cblas_ctbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const void *A, const int lda, void *X, ! const int incX) { #define BASE float --- 7,13 ---- void cblas_ctbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const void *A, const int lda, void *X, ! const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctpmv.c gsl-1.4/cblas/ctpmv.c *** gsl-1.3/cblas/ctpmv.c Mon Nov 19 21:35:24 2001 --- gsl-1.4/cblas/ctpmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_ctpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *Ap, void *X, const int incX) { #define BASE float --- 5,10 ---- void cblas_ctpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *Ap, void *X, const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctpsv.c gsl-1.4/cblas/ctpsv.c *** gsl-1.3/cblas/ctpsv.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/ctpsv.c Fri Jul 25 15:18:07 2003 *************** *** 7,12 **** void cblas_ctpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *Ap, void *X, const int incX) { #define BASE float --- 7,12 ---- void cblas_ctpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *Ap, void *X, const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctrmm.c gsl-1.4/cblas/ctrmm.c *** gsl-1.3/cblas/ctrmm.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/ctrmm.c Fri Jul 25 15:18:07 2003 *************** *** 5,12 **** void cblas_ctrmm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const void *alpha, const void *A, const int lda, void *B, ! const int ldb) { #define BASE float --- 5,12 ---- void cblas_ctrmm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const void *alpha, const void *A, const int lda, void *B, ! const int ldb) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctrmv.c gsl-1.4/cblas/ctrmv.c *** gsl-1.3/cblas/ctrmv.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/ctrmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_ctrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *A, const int lda, void *X, ! const int incX) { #define BASE float --- 5,11 ---- void cblas_ctrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *A, const int lda, void *X, ! const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctrsm.c gsl-1.4/cblas/ctrsm.c *** gsl-1.3/cblas/ctrsm.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/ctrsm.c Fri Jul 25 15:18:07 2003 *************** *** 7,14 **** void cblas_ctrsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const void *alpha, const void *A, const int lda, void *B, ! const int ldb) { #define BASE float --- 7,14 ---- void cblas_ctrsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const void *alpha, const void *A, const int lda, void *B, ! const int ldb) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ctrsv.c gsl-1.4/cblas/ctrsv.c *** gsl-1.3/cblas/ctrsv.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/ctrsv.c Fri Jul 25 15:18:07 2003 *************** *** 7,13 **** void cblas_ctrsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *A, const int lda, void *X, ! const int incX) { #define BASE float --- 7,13 ---- void cblas_ctrsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const void *A, const int lda, void *X, ! const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/daxpy.c gsl-1.4/cblas/daxpy.c *** gsl-1.3/cblas/daxpy.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/daxpy.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_daxpy (const int N, const double alpha, const double *X, const int incX, ! double *Y, const int incY) { #define BASE double --- 5,9 ---- void cblas_daxpy (const int N, const double alpha, const double *X, const int incX, ! double *Y, const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dcopy.c gsl-1.4/cblas/dcopy.c *** gsl-1.3/cblas/dcopy.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/dcopy.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_dcopy (const int N, const double *X, const int incX, double *Y, ! const int incY) { #define BASE double --- 5,9 ---- void cblas_dcopy (const int N, const double *X, const int incX, double *Y, ! const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/ddot.c gsl-1.4/cblas/ddot.c *** gsl-1.3/cblas/ddot.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/ddot.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** double cblas_ddot (const int N, const double *X, const int incX, const double *Y, ! const int incY) { #define INIT_VAL 0.0 --- 5,9 ---- double cblas_ddot (const int N, const double *X, const int incX, const double *Y, ! const int incY) { #define INIT_VAL 0.0 diff -x.info* -rc2P gsl-1.3/cblas/dgbmv.c gsl-1.4/cblas/dgbmv.c *** gsl-1.3/cblas/dgbmv.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/dgbmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,12 **** void cblas_dgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const int KL, const int KU, ! const double alpha, const double *A, const int lda, ! const double *X, const int incX, const double beta, double *Y, ! const int incY) { #define BASE double --- 5,12 ---- void cblas_dgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const int KL, const int KU, ! const double alpha, const double *A, const int lda, ! const double *X, const int incX, const double beta, double *Y, ! const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dgemm.c gsl-1.4/cblas/dgemm.c *** gsl-1.3/cblas/dgemm.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/dgemm.c Fri Jul 25 15:18:07 2003 *************** *** 5,12 **** void cblas_dgemm (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_TRANSPOSE TransB, const int M, const int N, ! const int K, const double alpha, const double *A, const int lda, ! const double *B, const int ldb, const double beta, double *C, ! const int ldc) { #define BASE double --- 5,12 ---- void cblas_dgemm (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_TRANSPOSE TransB, const int M, const int N, ! const int K, const double alpha, const double *A, const int lda, ! const double *B, const int ldb, const double beta, double *C, ! const int ldc) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dgemv.c gsl-1.4/cblas/dgemv.c *** gsl-1.3/cblas/dgemv.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/dgemv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_dgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const double alpha, const double *A, ! const int lda, const double *X, const int incX, ! const double beta, double *Y, const int incY) { #define BASE double --- 5,11 ---- void cblas_dgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const double alpha, const double *A, ! const int lda, const double *X, const int incX, ! const double beta, double *Y, const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dger.c gsl-1.4/cblas/dger.c *** gsl-1.3/cblas/dger.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/dger.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_dger (const enum CBLAS_ORDER order, const int M, const int N, ! const double alpha, const double *X, const int incX, ! const double *Y, const int incY, double *A, const int lda) { #define BASE double --- 5,10 ---- void cblas_dger (const enum CBLAS_ORDER order, const int M, const int N, ! const double alpha, const double *X, const int incX, ! const double *Y, const int incY, double *A, const int lda) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/drot.c gsl-1.4/cblas/drot.c *** gsl-1.3/cblas/drot.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/drot.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_drot (const int N, double *X, const int incX, double *Y, const int incY, ! const double c, const double s) { #define BASE double --- 5,9 ---- void cblas_drot (const int N, double *X, const int incX, double *Y, const int incY, ! const double c, const double s) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/drotm.c gsl-1.4/cblas/drotm.c *** gsl-1.3/cblas/drotm.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/drotm.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_drotm (const int N, double *X, const int incX, double *Y, ! const int incY, const double *P) { #define BASE double --- 5,9 ---- void cblas_drotm (const int N, double *X, const int incX, double *Y, ! const int incY, const double *P) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsbmv.c gsl-1.4/cblas/dsbmv.c *** gsl-1.3/cblas/dsbmv.c Mon Nov 19 21:35:23 2001 --- gsl-1.4/cblas/dsbmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_dsbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const int K, const double alpha, const double *A, ! const int lda, const double *X, const int incX, ! const double beta, double *Y, const int incY) { #define BASE double --- 5,11 ---- void cblas_dsbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const int K, const double alpha, const double *A, ! const int lda, const double *X, const int incX, ! const double beta, double *Y, const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsdot.c gsl-1.4/cblas/dsdot.c *** gsl-1.3/cblas/dsdot.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsdot.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** double cblas_dsdot (const int N, const float *X, const int incX, const float *Y, ! const int incY) { #define INIT_VAL 0.0 --- 5,9 ---- double cblas_dsdot (const int N, const float *X, const int incX, const float *Y, ! const int incY) { #define INIT_VAL 0.0 diff -x.info* -rc2P gsl-1.3/cblas/dspmv.c gsl-1.4/cblas/dspmv.c *** gsl-1.3/cblas/dspmv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dspmv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_dspmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *Ap, ! const double *X, const int incX, const double beta, double *Y, ! const int incY) { #define BASE double --- 5,11 ---- void cblas_dspmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *Ap, ! const double *X, const int incX, const double beta, double *Y, ! const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dspr.c gsl-1.4/cblas/dspr.c *** gsl-1.3/cblas/dspr.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dspr.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_dspr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! double *Ap) { #define BASE double --- 5,10 ---- void cblas_dspr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! double *Ap) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dspr2.c gsl-1.4/cblas/dspr2.c *** gsl-1.3/cblas/dspr2.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dspr2.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_dspr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! const double *Y, const int incY, double *Ap) { #define BASE double --- 5,10 ---- void cblas_dspr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! const double *Y, const int incY, double *Ap) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dswap.c gsl-1.4/cblas/dswap.c *** gsl-1.3/cblas/dswap.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dswap.c Fri Jul 25 15:18:07 2003 *************** *** 5,9 **** void cblas_dswap (const int N, double *X, const int incX, double *Y, ! const int incY) { #define BASE double --- 5,9 ---- void cblas_dswap (const int N, double *X, const int incX, double *Y, ! const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsymm.c gsl-1.4/cblas/dsymm.c *** gsl-1.3/cblas/dsymm.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsymm.c Fri Jul 25 15:18:07 2003 *************** *** 5,12 **** void cblas_dsymm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const double alpha, const double *A, const int lda, ! const double *B, const int ldb, const double beta, double *C, ! const int ldc) { #define BASE double --- 5,12 ---- void cblas_dsymm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const double alpha, const double *A, const int lda, ! const double *B, const int ldb, const double beta, double *C, ! const int ldc) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsymv.c gsl-1.4/cblas/dsymv.c *** gsl-1.3/cblas/dsymv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsymv.c Fri Jul 25 15:18:07 2003 *************** *** 5,11 **** void cblas_dsymv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *A, const int lda, ! const double *X, const int incX, const double beta, double *Y, ! const int incY) { #define BASE double --- 5,11 ---- void cblas_dsymv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *A, const int lda, ! const double *X, const int incX, const double beta, double *Y, ! const int incY) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsyr.c gsl-1.4/cblas/dsyr.c *** gsl-1.3/cblas/dsyr.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsyr.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_dsyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! double *A, const int lda) { #define BASE double --- 5,10 ---- void cblas_dsyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! double *A, const int lda) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsyr2.c gsl-1.4/cblas/dsyr2.c *** gsl-1.3/cblas/dsyr2.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsyr2.c Fri Jul 25 15:18:07 2003 *************** *** 5,10 **** void cblas_dsyr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! const double *Y, const int incY, double *A, const int lda) { #define BASE double --- 5,10 ---- void cblas_dsyr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const double alpha, const double *X, const int incX, ! const double *Y, const int incY, double *A, const int lda) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsyr2k.c gsl-1.4/cblas/dsyr2k.c *** gsl-1.3/cblas/dsyr2k.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsyr2k.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_dsyr2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const double alpha, const double *A, const int lda, ! const double *B, const int ldb, const double beta, double *C, ! const int ldc) { #define BASE double --- 5,12 ---- void cblas_dsyr2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const double alpha, const double *A, const int lda, ! const double *B, const int ldb, const double beta, double *C, ! const int ldc) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dsyrk.c gsl-1.4/cblas/dsyrk.c *** gsl-1.3/cblas/dsyrk.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dsyrk.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_dsyrk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const double alpha, const double *A, const int lda, ! const double beta, double *C, const int ldc) { #define BASE double --- 5,11 ---- void cblas_dsyrk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const double alpha, const double *A, const int lda, ! const double beta, double *C, const int ldc) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtbmv.c gsl-1.4/cblas/dtbmv.c *** gsl-1.3/cblas/dtbmv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtbmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_dtbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const double *A, const int lda, ! double *X, const int incX) { #define BASE double --- 5,11 ---- void cblas_dtbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const double *A, const int lda, ! double *X, const int incX) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtbsv.c gsl-1.4/cblas/dtbsv.c *** gsl-1.3/cblas/dtbsv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtbsv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_dtbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const double *A, const int lda, ! double *X, const int incX) { #define BASE double --- 5,11 ---- void cblas_dtbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const double *A, const int lda, ! double *X, const int incX) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtpmv.c gsl-1.4/cblas/dtpmv.c *** gsl-1.3/cblas/dtpmv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtpmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_dtpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *Ap, double *X, const int incX) { #define BASE double --- 5,10 ---- void cblas_dtpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *Ap, double *X, const int incX) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtpsv.c gsl-1.4/cblas/dtpsv.c *** gsl-1.3/cblas/dtpsv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtpsv.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_dtpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *Ap, double *X, const int incX) { #define BASE double --- 5,10 ---- void cblas_dtpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *Ap, double *X, const int incX) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtrmm.c gsl-1.4/cblas/dtrmm.c *** gsl-1.3/cblas/dtrmm.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtrmm.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_dtrmm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const double alpha, const double *A, const int lda, double *B, ! const int ldb) { #define BASE double --- 5,12 ---- void cblas_dtrmm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const double alpha, const double *A, const int lda, double *B, ! const int ldb) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtrmv.c gsl-1.4/cblas/dtrmv.c *** gsl-1.3/cblas/dtrmv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtrmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_dtrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *A, const int lda, double *X, ! const int incX) { #define BASE double --- 5,11 ---- void cblas_dtrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *A, const int lda, double *X, ! const int incX) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtrsm.c gsl-1.4/cblas/dtrsm.c *** gsl-1.3/cblas/dtrsm.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtrsm.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_dtrsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const double alpha, const double *A, const int lda, double *B, ! const int ldb) { #define BASE double --- 5,12 ---- void cblas_dtrsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const double alpha, const double *A, const int lda, double *B, ! const int ldb) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/dtrsv.c gsl-1.4/cblas/dtrsv.c *** gsl-1.3/cblas/dtrsv.c Mon Nov 19 21:35:22 2001 --- gsl-1.4/cblas/dtrsv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_dtrsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *A, const int lda, double *X, ! const int incX) { #define BASE double --- 5,11 ---- void cblas_dtrsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const double *A, const int lda, double *X, ! const int incX) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/saxpy.c gsl-1.4/cblas/saxpy.c *** gsl-1.3/cblas/saxpy.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/saxpy.c Fri Jul 25 15:18:08 2003 *************** *** 5,9 **** void cblas_saxpy (const int N, const float alpha, const float *X, const int incX, ! float *Y, const int incY) { #define BASE float --- 5,9 ---- void cblas_saxpy (const int N, const float alpha, const float *X, const int incX, ! float *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/scopy.c gsl-1.4/cblas/scopy.c *** gsl-1.3/cblas/scopy.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/scopy.c Fri Jul 25 15:18:08 2003 *************** *** 5,9 **** void cblas_scopy (const int N, const float *X, const int incX, float *Y, ! const int incY) { #define BASE float --- 5,9 ---- void cblas_scopy (const int N, const float *X, const int incX, float *Y, ! const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sdot.c gsl-1.4/cblas/sdot.c *** gsl-1.3/cblas/sdot.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/sdot.c Fri Jul 25 15:18:08 2003 *************** *** 5,9 **** float cblas_sdot (const int N, const float *X, const int incX, const float *Y, ! const int incY) { #define INIT_VAL 0.0 --- 5,9 ---- float cblas_sdot (const int N, const float *X, const int incX, const float *Y, ! const int incY) { #define INIT_VAL 0.0 diff -x.info* -rc2P gsl-1.3/cblas/sdsdot.c gsl-1.4/cblas/sdsdot.c *** gsl-1.3/cblas/sdsdot.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/sdsdot.c Fri Jul 25 15:18:08 2003 *************** *** 5,9 **** float cblas_sdsdot (const int N, const float alpha, const float *X, const int incX, ! const float *Y, const int incY) { #define INIT_VAL alpha --- 5,9 ---- float cblas_sdsdot (const int N, const float alpha, const float *X, const int incX, ! const float *Y, const int incY) { #define INIT_VAL alpha diff -x.info* -rc2P gsl-1.3/cblas/sgbmv.c gsl-1.4/cblas/sgbmv.c *** gsl-1.3/cblas/sgbmv.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/sgbmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_sgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const int KL, const int KU, ! const float alpha, const float *A, const int lda, const float *X, ! const int incX, const float beta, float *Y, const int incY) { #define BASE float --- 5,11 ---- void cblas_sgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const int KL, const int KU, ! const float alpha, const float *A, const int lda, const float *X, ! const int incX, const float beta, float *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sgemm.c gsl-1.4/cblas/sgemm.c *** gsl-1.3/cblas/sgemm.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/sgemm.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_sgemm (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_TRANSPOSE TransB, const int M, const int N, ! const int K, const float alpha, const float *A, const int lda, ! const float *B, const int ldb, const float beta, float *C, ! const int ldc) { #define BASE float --- 5,12 ---- void cblas_sgemm (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_TRANSPOSE TransB, const int M, const int N, ! const int K, const float alpha, const float *A, const int lda, ! const float *B, const int ldb, const float beta, float *C, ! const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sgemv.c gsl-1.4/cblas/sgemv.c *** gsl-1.3/cblas/sgemv.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/sgemv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_sgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const float alpha, const float *A, ! const int lda, const float *X, const int incX, const float beta, ! float *Y, const int incY) { #define BASE float --- 5,11 ---- void cblas_sgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, ! const int M, const int N, const float alpha, const float *A, ! const int lda, const float *X, const int incX, const float beta, ! float *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sger.c gsl-1.4/cblas/sger.c *** gsl-1.3/cblas/sger.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/sger.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_sger (const enum CBLAS_ORDER order, const int M, const int N, ! const float alpha, const float *X, const int incX, const float *Y, ! const int incY, float *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_sger (const enum CBLAS_ORDER order, const int M, const int N, ! const float alpha, const float *X, const int incX, const float *Y, ! const int incY, float *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/source_gbmv_c.h gsl-1.4/cblas/source_gbmv_c.h *** gsl-1.3/cblas/source_gbmv_c.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_gbmv_c.h Fri Jul 25 15:18:17 2003 *************** *** 82,93 **** INDEX ix = OFFSET(lenX, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + (L + j - i)); ! const BASE A_imag = CONST_IMAG(A, lda * i + (L + j - i)); ! dotR += A_real * x_real - A_imag * x_imag; ! dotI += A_real * x_imag + A_imag * x_real; ! ix += incX; } --- 82,93 ---- INDEX ix = OFFSET(lenX, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + (L + j - i)); ! const BASE A_imag = CONST_IMAG(A, lda * i + (L + j - i)); ! dotR += A_real * x_real - A_imag * x_imag; ! dotI += A_real * x_imag + A_imag * x_real; ! ix += incX; } *************** *** 97,101 **** } } else if ((order == CblasRowMajor && TransA == CblasTrans) ! || (order == CblasColMajor && TransA == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX ix = OFFSET(lenX, incX); --- 97,101 ---- } } else if ((order == CblasRowMajor && TransA == CblasTrans) ! || (order == CblasColMajor && TransA == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX ix = OFFSET(lenX, incX); *************** *** 106,119 **** BASE tmpI = alpha_real * x_imag + alpha_imag * x_real; if (!(tmpR == 0.0 && tmpI == 0.0)) { ! const INDEX i_min = (j > U ? j - U : 0); ! const INDEX i_max = GSL_MIN(lenY, j + L + 1); ! INDEX iy = OFFSET(lenY, incY) + i_min * incY; ! for (i = i_min; i < i_max; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + (U + i - j)); ! const BASE A_imag = CONST_IMAG(A, lda * j + (U + i - j)); ! REAL(Y, iy) += A_real * tmpR - A_imag * tmpI; ! IMAG(Y, iy) += A_real * tmpI + A_imag * tmpR; ! iy += incY; ! } } ix += incX; --- 106,119 ---- BASE tmpI = alpha_real * x_imag + alpha_imag * x_real; if (!(tmpR == 0.0 && tmpI == 0.0)) { ! const INDEX i_min = (j > U ? j - U : 0); ! const INDEX i_max = GSL_MIN(lenY, j + L + 1); ! INDEX iy = OFFSET(lenY, incY) + i_min * incY; ! for (i = i_min; i < i_max; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + (U + i - j)); ! const BASE A_imag = CONST_IMAG(A, lda * j + (U + i - j)); ! REAL(Y, iy) += A_real * tmpR - A_imag * tmpI; ! IMAG(Y, iy) += A_real * tmpI + A_imag * tmpR; ! iy += incY; ! } } ix += incX; *************** *** 128,141 **** BASE tmpI = alpha_real * x_imag + alpha_imag * x_real; if (!(tmpR == 0.0 && tmpI == 0.0)) { ! const INDEX i_min = (j > U ? j - U : 0); ! const INDEX i_max = GSL_MIN(lenY, j + L + 1); ! INDEX iy = OFFSET(lenY, incY) + i_min * incY; ! for (i = i_min; i < i_max; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + (U + i - j)); ! const BASE A_imag = CONST_IMAG(A, lda * j + (U + i - j)); ! REAL(Y, iy) += A_real * tmpR - (-A_imag) * tmpI; ! IMAG(Y, iy) += A_real * tmpI + (-A_imag) * tmpR; ! iy += incY; ! } } ix += incX; --- 128,141 ---- BASE tmpI = alpha_real * x_imag + alpha_imag * x_real; if (!(tmpR == 0.0 && tmpI == 0.0)) { ! const INDEX i_min = (j > U ? j - U : 0); ! const INDEX i_max = GSL_MIN(lenY, j + L + 1); ! INDEX iy = OFFSET(lenY, incY) + i_min * incY; ! for (i = i_min; i < i_max; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + (U + i - j)); ! const BASE A_imag = CONST_IMAG(A, lda * j + (U + i - j)); ! REAL(Y, iy) += A_real * tmpR - (-A_imag) * tmpI; ! IMAG(Y, iy) += A_real * tmpI + (-A_imag) * tmpR; ! iy += incY; ! } } ix += incX; *************** *** 151,162 **** INDEX ix = OFFSET(lenX, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + (L + j - i)); ! const BASE A_imag = CONST_IMAG(A, lda * i + (L + j - i)); ! dotR += A_real * x_real - (-A_imag) * x_imag; ! dotI += A_real * x_imag + (-A_imag) * x_real; ! ix += incX; } --- 151,162 ---- INDEX ix = OFFSET(lenX, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + (L + j - i)); ! const BASE A_imag = CONST_IMAG(A, lda * i + (L + j - i)); ! dotR += A_real * x_real - (-A_imag) * x_imag; ! dotI += A_real * x_imag + (-A_imag) * x_real; ! ix += incX; } diff -x.info* -rc2P gsl-1.3/cblas/source_gbmv_r.h gsl-1.4/cblas/source_gbmv_r.h *** gsl-1.3/cblas/source_gbmv_r.h Fri Apr 27 18:32:26 2001 --- gsl-1.4/cblas/source_gbmv_r.h Fri Jul 25 15:18:17 2003 *************** *** 70,75 **** INDEX jx = OFFSET(lenX, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[(L - i + j) + i * lda]; ! jx += incX; } Y[iy] += alpha * temp; --- 70,75 ---- INDEX jx = OFFSET(lenX, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[(L - i + j) + i * lda]; ! jx += incX; } Y[iy] += alpha * temp; *************** *** 77,81 **** } } else if ((order == CblasRowMajor && Trans == CblasTrans) ! || (order == CblasColMajor && Trans == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX jx = OFFSET(lenX, incX); --- 77,81 ---- } } else if ((order == CblasRowMajor && Trans == CblasTrans) ! || (order == CblasColMajor && Trans == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX jx = OFFSET(lenX, incX); *************** *** 83,93 **** const BASE temp = alpha * X[jx]; if (temp != 0.0) { ! const INDEX i_min = (j > U ? j - U : 0); ! const INDEX i_max = GSL_MIN(lenY, j + L + 1); ! INDEX iy = OFFSET(lenY, incY) + i_min * incY; ! for (i = i_min; i < i_max; i++) { ! Y[iy] += temp * A[lda * j + (U + i - j)]; ! iy += incY; ! } } jx += incX; --- 83,93 ---- const BASE temp = alpha * X[jx]; if (temp != 0.0) { ! const INDEX i_min = (j > U ? j - U : 0); ! const INDEX i_max = GSL_MIN(lenY, j + L + 1); ! INDEX iy = OFFSET(lenY, incY) + i_min * incY; ! for (i = i_min; i < i_max; i++) { ! Y[iy] += temp * A[lda * j + (U + i - j)]; ! iy += incY; ! } } jx += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_gemm_c.h gsl-1.4/cblas/source_gemm_c.h *** gsl-1.3/cblas/source_gemm_c.h Fri Apr 27 19:06:44 2001 --- gsl-1.4/cblas/source_gemm_c.h Fri Jul 25 15:18:17 2003 *************** *** 38,46 **** n1 = M; n2 = N; ! F = A; ldf = lda; conjF = (TransA == CblasConjTrans) ? -1 : 1; TransF = (TransA == CblasNoTrans) ? CblasNoTrans : CblasTrans; ! G = B; ldg = ldb; conjG = (TransB == CblasConjTrans) ? -1 : 1; --- 38,46 ---- n1 = M; n2 = N; ! F = (const BASE *)A; ldf = lda; conjF = (TransA == CblasConjTrans) ? -1 : 1; TransF = (TransA == CblasNoTrans) ? CblasNoTrans : CblasTrans; ! G = (const BASE *)B; ldg = ldb; conjG = (TransB == CblasConjTrans) ? -1 : 1; *************** *** 49,57 **** n1 = N; n2 = M; ! F = B; ldf = ldb; conjF = (TransB == CblasConjTrans) ? -1 : 1; TransF = (TransB == CblasNoTrans) ? CblasNoTrans : CblasTrans; ! G = A; ldg = lda; conjG = (TransA == CblasConjTrans) ? -1 : 1; --- 49,57 ---- n1 = N; n2 = M; ! F = (const BASE *)B; ldf = ldb; conjF = (TransB == CblasConjTrans) ? -1 : 1; TransF = (TransB == CblasNoTrans) ? CblasNoTrans : CblasTrans; ! G = (const BASE *)A; ldg = lda; conjG = (TransA == CblasConjTrans) ? -1 : 1; *************** *** 63,68 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; } } --- 63,68 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; } } *************** *** 70,77 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; } } --- 70,77 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; } } *************** *** 87,102 **** for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE Fik_real = CONST_REAL(F, ldf * i + k); ! const BASE Fik_imag = conjF * CONST_IMAG(F, ldf * i + k); ! const BASE temp_real = alpha_real * Fik_real - alpha_imag * Fik_imag; ! const BASE temp_imag = alpha_real * Fik_imag + alpha_imag * Fik_real; ! if (!(temp_real == 0.0 && temp_imag == 0.0)) { ! for (j = 0; j < n2; j++) { ! const BASE Gkj_real = CONST_REAL(G, ldg * k + j); ! const BASE Gkj_imag = conjG * CONST_IMAG(G, ldg * k + j); ! REAL(C, ldc * i + j) += temp_real * Gkj_real - temp_imag * Gkj_imag; ! IMAG(C, ldc * i + j) += temp_real * Gkj_imag + temp_imag * Gkj_real; ! } ! } } } --- 87,102 ---- for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE Fik_real = CONST_REAL(F, ldf * i + k); ! const BASE Fik_imag = conjF * CONST_IMAG(F, ldf * i + k); ! const BASE temp_real = alpha_real * Fik_real - alpha_imag * Fik_imag; ! const BASE temp_imag = alpha_real * Fik_imag + alpha_imag * Fik_real; ! if (!(temp_real == 0.0 && temp_imag == 0.0)) { ! for (j = 0; j < n2; j++) { ! const BASE Gkj_real = CONST_REAL(G, ldg * k + j); ! const BASE Gkj_imag = conjG * CONST_IMAG(G, ldg * k + j); ! REAL(C, ldc * i + j) += temp_real * Gkj_real - temp_imag * Gkj_imag; ! IMAG(C, ldc * i + j) += temp_real * Gkj_imag + temp_imag * Gkj_real; ! } ! } } } *************** *** 108,123 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Fik_real = CONST_REAL(F, ldf * i + k); ! const BASE Fik_imag = conjF * CONST_IMAG(F, ldf * i + k); ! const BASE Gjk_real = CONST_REAL(G, ldg * j + k); ! const BASE Gjk_imag = conjG * CONST_IMAG(G, ldg * j + k); ! temp_real += Fik_real * Gjk_real - Fik_imag * Gjk_imag; ! temp_imag += Fik_real * Gjk_imag + Fik_imag * Gjk_real; ! } ! REAL(C, ldc * i + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, ldc * i + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 108,123 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Fik_real = CONST_REAL(F, ldf * i + k); ! const BASE Fik_imag = conjF * CONST_IMAG(F, ldf * i + k); ! const BASE Gjk_real = CONST_REAL(G, ldg * j + k); ! const BASE Gjk_imag = conjG * CONST_IMAG(G, ldg * j + k); ! temp_real += Fik_real * Gjk_real - Fik_imag * Gjk_imag; ! temp_imag += Fik_real * Gjk_imag + Fik_imag * Gjk_real; ! } ! REAL(C, ldc * i + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, ldc * i + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 127,142 **** for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE Fki_real = CONST_REAL(F, ldf * k + i); ! const BASE Fki_imag = conjF * CONST_IMAG(F, ldf * k + i); ! const BASE temp_real = alpha_real * Fki_real - alpha_imag * Fki_imag; ! const BASE temp_imag = alpha_real * Fki_imag + alpha_imag * Fki_real; ! if (!(temp_real == 0.0 && temp_imag == 0.0)) { ! for (j = 0; j < n2; j++) { ! const BASE Gkj_real = CONST_REAL(G, ldg * k + j); ! const BASE Gkj_imag = conjG * CONST_IMAG(G, ldg * k + j); ! REAL(C, ldc * i + j) += temp_real * Gkj_real - temp_imag * Gkj_imag; ! IMAG(C, ldc * i + j) += temp_real * Gkj_imag + temp_imag * Gkj_real; ! } ! } } } --- 127,142 ---- for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE Fki_real = CONST_REAL(F, ldf * k + i); ! const BASE Fki_imag = conjF * CONST_IMAG(F, ldf * k + i); ! const BASE temp_real = alpha_real * Fki_real - alpha_imag * Fki_imag; ! const BASE temp_imag = alpha_real * Fki_imag + alpha_imag * Fki_real; ! if (!(temp_real == 0.0 && temp_imag == 0.0)) { ! for (j = 0; j < n2; j++) { ! const BASE Gkj_real = CONST_REAL(G, ldg * k + j); ! const BASE Gkj_imag = conjG * CONST_IMAG(G, ldg * k + j); ! REAL(C, ldc * i + j) += temp_real * Gkj_real - temp_imag * Gkj_imag; ! IMAG(C, ldc * i + j) += temp_real * Gkj_imag + temp_imag * Gkj_real; ! } ! } } } *************** *** 146,162 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Fki_real = CONST_REAL(F, ldf * k + i); ! const BASE Fki_imag = conjF * CONST_IMAG(F, ldf * k + i); ! const BASE Gjk_real = CONST_REAL(G, ldg * j + k); ! const BASE Gjk_imag = conjG * CONST_IMAG(G, ldg * j + k); ! ! temp_real += Fki_real * Gjk_real - Fki_imag * Gjk_imag; ! temp_imag += Fki_real * Gjk_imag + Fki_imag * Gjk_real; ! } ! REAL(C, ldc * i + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, ldc * i + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 146,162 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Fki_real = CONST_REAL(F, ldf * k + i); ! const BASE Fki_imag = conjF * CONST_IMAG(F, ldf * k + i); ! const BASE Gjk_real = CONST_REAL(G, ldg * j + k); ! const BASE Gjk_imag = conjG * CONST_IMAG(G, ldg * j + k); ! ! temp_real += Fki_real * Gjk_real - Fki_imag * Gjk_imag; ! temp_imag += Fki_real * Gjk_imag + Fki_imag * Gjk_real; ! } ! REAL(C, ldc * i + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, ldc * i + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } diff -x.info* -rc2P gsl-1.3/cblas/source_gemm_r.h gsl-1.4/cblas/source_gemm_r.h *** gsl-1.3/cblas/source_gemm_r.h Fri Apr 27 18:32:25 2001 --- gsl-1.4/cblas/source_gemm_r.h Fri Jul 25 15:18:17 2003 *************** *** 52,56 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] = 0.0; } } --- 52,56 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] = 0.0; } } *************** *** 58,62 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] *= beta; } } --- 58,62 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] *= beta; } } *************** *** 72,81 **** for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE temp = alpha * F[ldf * i + k]; ! if (temp != 0.0) { ! for (j = 0; j < n2; j++) { ! C[ldc * i + j] += temp * G[ldg * k + j]; ! } ! } } } --- 72,81 ---- for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE temp = alpha * F[ldf * i + k]; ! if (temp != 0.0) { ! for (j = 0; j < n2; j++) { ! C[ldc * i + j] += temp * G[ldg * k + j]; ! } ! } } } *************** *** 87,95 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += F[ldf * i + k] * G[ldg * j + k]; ! } ! C[ldc * i + j] += alpha * temp; } } --- 87,95 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += F[ldf * i + k] * G[ldg * j + k]; ! } ! C[ldc * i + j] += alpha * temp; } } *************** *** 99,108 **** for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE temp = alpha * F[ldf * k + i]; ! if (temp != 0.0) { ! for (j = 0; j < n2; j++) { ! C[ldc * i + j] += temp * G[ldg * k + j]; ! } ! } } } --- 99,108 ---- for (k = 0; k < K; k++) { for (i = 0; i < n1; i++) { ! const BASE temp = alpha * F[ldf * k + i]; ! if (temp != 0.0) { ! for (j = 0; j < n2; j++) { ! C[ldc * i + j] += temp * G[ldg * k + j]; ! } ! } } } *************** *** 112,120 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += F[ldf * k + i] * G[ldg * j + k]; ! } ! C[ldc * i + j] += alpha * temp; } } --- 112,120 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += F[ldf * k + i] * G[ldg * j + k]; ! } ! C[ldc * i + j] += alpha * temp; } } diff -x.info* -rc2P gsl-1.3/cblas/source_gemv_c.h gsl-1.4/cblas/source_gemv_c.h *** gsl-1.3/cblas/source_gemv_c.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_gemv_c.h Fri Jul 25 15:18:17 2003 *************** *** 77,88 **** INDEX ix = OFFSET(lenX, incX); for (j = 0; j < lenX; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = CONST_IMAG(A, lda * i + j); ! dotR += A_real * x_real - A_imag * x_imag; ! dotI += A_real * x_imag + A_imag * x_real; ! ix += incX; } --- 77,88 ---- INDEX ix = OFFSET(lenX, incX); for (j = 0; j < lenX; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = CONST_IMAG(A, lda * i + j); ! dotR += A_real * x_real - A_imag * x_imag; ! dotI += A_real * x_imag + A_imag * x_real; ! ix += incX; } *************** *** 92,96 **** } } else if ((order == CblasRowMajor && TransA == CblasTrans) ! || (order == CblasColMajor && TransA == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX ix = OFFSET(lenX, incX); --- 92,96 ---- } } else if ((order == CblasRowMajor && TransA == CblasTrans) ! || (order == CblasColMajor && TransA == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX ix = OFFSET(lenX, incX); *************** *** 103,111 **** INDEX iy = OFFSET(lenY, incY); for (i = 0; i < lenY; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = CONST_IMAG(A, lda * j + i); ! REAL(Y, iy) += A_real * tmpR - A_imag * tmpI; ! IMAG(Y, iy) += A_real * tmpI + A_imag * tmpR; ! iy += incY; } ix += incX; --- 103,111 ---- INDEX iy = OFFSET(lenY, incY); for (i = 0; i < lenY; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = CONST_IMAG(A, lda * j + i); ! REAL(Y, iy) += A_real * tmpR - A_imag * tmpI; ! IMAG(Y, iy) += A_real * tmpI + A_imag * tmpR; ! iy += incY; } ix += incX; *************** *** 122,130 **** INDEX iy = OFFSET(lenY, incY); for (i = 0; i < lenY; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = CONST_IMAG(A, lda * j + i); ! REAL(Y, iy) += A_real * tmpR - (-A_imag) * tmpI; ! IMAG(Y, iy) += A_real * tmpI + (-A_imag) * tmpR; ! iy += incY; } ix += incX; --- 122,130 ---- INDEX iy = OFFSET(lenY, incY); for (i = 0; i < lenY; i++) { ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = CONST_IMAG(A, lda * j + i); ! REAL(Y, iy) += A_real * tmpR - (-A_imag) * tmpI; ! IMAG(Y, iy) += A_real * tmpI + (-A_imag) * tmpR; ! iy += incY; } ix += incX; *************** *** 138,149 **** INDEX ix = OFFSET(lenX, incX); for (j = 0; j < lenX; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = CONST_IMAG(A, lda * i + j); ! dotR += A_real * x_real - (-A_imag) * x_imag; ! dotI += A_real * x_imag + (-A_imag) * x_real; ! ix += incX; } --- 138,149 ---- INDEX ix = OFFSET(lenX, incX); for (j = 0; j < lenX; j++) { ! const BASE x_real = CONST_REAL(X, ix); ! const BASE x_imag = CONST_IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = CONST_IMAG(A, lda * i + j); ! dotR += A_real * x_real - (-A_imag) * x_imag; ! dotI += A_real * x_imag + (-A_imag) * x_real; ! ix += incX; } diff -x.info* -rc2P gsl-1.3/cblas/source_gemv_r.h gsl-1.4/cblas/source_gemv_r.h *** gsl-1.3/cblas/source_gemv_r.h Fri Apr 27 18:32:25 2001 --- gsl-1.4/cblas/source_gemv_r.h Fri Jul 25 15:18:17 2003 *************** *** 64,69 **** INDEX ix = OFFSET(lenX, incX); for (j = 0; j < lenX; j++) { ! temp += X[ix] * A[lda * i + j]; ! ix += incX; } Y[iy] += alpha * temp; --- 64,69 ---- INDEX ix = OFFSET(lenX, incX); for (j = 0; j < lenX; j++) { ! temp += X[ix] * A[lda * i + j]; ! ix += incX; } Y[iy] += alpha * temp; *************** *** 71,75 **** } } else if ((order == CblasRowMajor && Trans == CblasTrans) ! || (order == CblasColMajor && Trans == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX ix = OFFSET(lenX, incX); --- 71,75 ---- } } else if ((order == CblasRowMajor && Trans == CblasTrans) ! || (order == CblasColMajor && Trans == CblasNoTrans)) { /* form y := alpha*A'*x + y */ INDEX ix = OFFSET(lenX, incX); *************** *** 77,85 **** const BASE temp = alpha * X[ix]; if (temp != 0.0) { ! INDEX iy = OFFSET(lenY, incY); ! for (i = 0; i < lenY; i++) { ! Y[iy] += temp * A[lda * j + i]; ! iy += incY; ! } } ix += incX; --- 77,85 ---- const BASE temp = alpha * X[ix]; if (temp != 0.0) { ! INDEX iy = OFFSET(lenY, incY); ! for (i = 0; i < lenY; i++) { ! Y[iy] += temp * A[lda * j + i]; ! iy += incY; ! } } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_ger.h gsl-1.4/cblas/source_ger.h *** gsl-1.3/cblas/source_ger.h Fri Apr 27 18:32:25 2001 --- gsl-1.4/cblas/source_ger.h Fri Jul 25 15:18:17 2003 *************** *** 27,32 **** INDEX jy = OFFSET(N, incY); for (j = 0; j < N; j++) { ! A[lda * i + j] += Y[jy] * tmp; ! jy += incY; } ix += incX; --- 27,32 ---- INDEX jy = OFFSET(N, incY); for (j = 0; j < N; j++) { ! A[lda * i + j] += Y[jy] * tmp; ! jy += incY; } ix += incX; *************** *** 38,43 **** INDEX ix = OFFSET(M, incX); for (i = 0; i < M; i++) { ! A[i + lda * j] += X[ix] * tmp; ! ix += incX; } jy += incY; --- 38,43 ---- INDEX ix = OFFSET(M, incX); for (i = 0; i < M; i++) { ! A[i + lda * j] += X[ix] * tmp; ! ix += incX; } jy += incY; diff -x.info* -rc2P gsl-1.3/cblas/source_gerc.h gsl-1.4/cblas/source_gerc.h *** gsl-1.3/cblas/source_gerc.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_gerc.h Fri Jul 25 15:18:17 2003 *************** *** 33,41 **** INDEX jy = OFFSET(N, incY); for (j = 0; j < N; j++) { ! const BASE Y_real = CONST_REAL(Y, jy); ! const BASE Y_imag = -CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += Y_real * tmp_real - Y_imag * tmp_imag; ! IMAG(A, lda * i + j) += Y_imag * tmp_real + Y_real * tmp_imag; ! jy += incY; } ix += incX; --- 33,41 ---- INDEX jy = OFFSET(N, incY); for (j = 0; j < N; j++) { ! const BASE Y_real = CONST_REAL(Y, jy); ! const BASE Y_imag = -CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += Y_real * tmp_real - Y_imag * tmp_imag; ! IMAG(A, lda * i + j) += Y_imag * tmp_real + Y_real * tmp_imag; ! jy += incY; } ix += incX; *************** *** 50,58 **** INDEX ix = OFFSET(M, incX); for (i = 0; i < M; i++) { ! const BASE X_real = CONST_REAL(X, ix); ! const BASE X_imag = CONST_IMAG(X, ix); ! REAL(A, i + lda * j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, i + lda * j) += X_imag * tmp_real + X_real * tmp_imag; ! ix += incX; } jy += incY; --- 50,58 ---- INDEX ix = OFFSET(M, incX); for (i = 0; i < M; i++) { ! const BASE X_real = CONST_REAL(X, ix); ! const BASE X_imag = CONST_IMAG(X, ix); ! REAL(A, i + lda * j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, i + lda * j) += X_imag * tmp_real + X_real * tmp_imag; ! ix += incX; } jy += incY; diff -x.info* -rc2P gsl-1.3/cblas/source_geru.h gsl-1.4/cblas/source_geru.h *** gsl-1.3/cblas/source_geru.h Fri Apr 27 19:10:35 2001 --- gsl-1.4/cblas/source_geru.h Fri Jul 25 15:18:17 2003 *************** *** 32,40 **** INDEX jy = OFFSET(N, incY); for (j = 0; j < N; j++) { ! const BASE Y_real = CONST_REAL(Y, jy); ! const BASE Y_imag = CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += Y_real * tmp_real - Y_imag * tmp_imag; ! IMAG(A, lda * i + j) += Y_imag * tmp_real + Y_real * tmp_imag; ! jy += incY; } ix += incX; --- 32,40 ---- INDEX jy = OFFSET(N, incY); for (j = 0; j < N; j++) { ! const BASE Y_real = CONST_REAL(Y, jy); ! const BASE Y_imag = CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += Y_real * tmp_real - Y_imag * tmp_imag; ! IMAG(A, lda * i + j) += Y_imag * tmp_real + Y_real * tmp_imag; ! jy += incY; } ix += incX; *************** *** 49,57 **** INDEX ix = OFFSET(M, incX); for (i = 0; i < M; i++) { ! const BASE X_real = CONST_REAL(X, ix); ! const BASE X_imag = CONST_IMAG(X, ix); ! REAL(A, i + lda * j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, i + lda * j) += X_imag * tmp_real + X_real * tmp_imag; ! ix += incX; } jy += incY; --- 49,57 ---- INDEX ix = OFFSET(M, incX); for (i = 0; i < M; i++) { ! const BASE X_real = CONST_REAL(X, ix); ! const BASE X_imag = CONST_IMAG(X, ix); ! REAL(A, i + lda * j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, i + lda * j) += X_imag * tmp_real + X_real * tmp_imag; ! ix += incX; } jy += incY; diff -x.info* -rc2P gsl-1.3/cblas/source_hbmv.h gsl-1.4/cblas/source_hbmv.h *** gsl-1.3/cblas/source_hbmv.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_hbmv.h Fri Jul 25 15:18:17 2003 *************** *** 81,94 **** IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, lda * i + (j - i)); ! BASE Aij_imag = conj * CONST_IMAG(A, lda * i + (j - i)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; --- 81,94 ---- IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, lda * i + (j - i)); ! BASE Aij_imag = conj * CONST_IMAG(A, lda * i + (j - i)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; *************** *** 98,102 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); --- 98,102 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); *************** *** 114,134 **** for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, i * lda + (K - i + j)); ! BASE Aij_imag = conj * CONST_IMAG(A, i * lda + (K - i + j)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } { ! BASE Aii_real = CONST_REAL(A, lda * i + K); ! /* Aii_imag is zero */ ! REAL(Y, iy) += temp1_real * Aii_real; ! IMAG(Y, iy) += temp1_imag * Aii_real; } --- 114,134 ---- for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, i * lda + (K - i + j)); ! BASE Aij_imag = conj * CONST_IMAG(A, i * lda + (K - i + j)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } { ! BASE Aii_real = CONST_REAL(A, lda * i + K); ! /* Aii_imag is zero */ ! REAL(Y, iy) += temp1_real * Aii_real; ! IMAG(Y, iy) += temp1_imag * Aii_real; } diff -x.info* -rc2P gsl-1.3/cblas/source_hemm.h gsl-1.4/cblas/source_hemm.h *** gsl-1.3/cblas/source_hemm.h Fri Apr 27 19:15:34 2001 --- gsl-1.4/cblas/source_hemm.h Fri Jul 25 15:18:17 2003 *************** *** 49,54 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; } } --- 49,54 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; } } *************** *** 56,63 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; } } --- 56,63 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; } } *************** *** 73,100 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! /* const BASE Aii_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Aii_real; ! IMAG(C, i * ldc + j) += temp1_imag * Aii_real; ! } ! for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - (-Aik_imag) * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + (-Aik_imag) * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 73,100 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! /* const BASE Aii_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Aii_real; ! IMAG(C, i * ldc + j) += temp1_imag * Aii_real; ! } ! for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - (-Aik_imag) * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + (-Aik_imag) * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } *************** *** 106,133 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - (-Aik_imag) * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + (-Aik_imag) * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! /* const BASE Aii_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Aii_real; ! IMAG(C, i * ldc + j) += temp1_imag * Aii_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 106,133 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - (-Aik_imag) * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + (-Aik_imag) * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! /* const BASE Aii_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Aii_real; ! IMAG(C, i * ldc + j) += temp1_imag * Aii_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } *************** *** 139,166 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! /* const BASE Ajj_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Ajj_real; ! IMAG(C, i * ldc + j) += temp1_imag * Ajj_real; ! } ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * (-Ajk_imag); ! temp2_imag += Bik_real * (-Ajk_imag) + Bik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 139,166 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! /* const BASE Ajj_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Ajj_real; ! IMAG(C, i * ldc + j) += temp1_imag * Ajj_real; ! } ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * (-Ajk_imag); ! temp2_imag += Bik_real * (-Ajk_imag) + Bik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } *************** *** 172,199 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * (-Ajk_imag); ! temp2_imag += Bik_real * (-Ajk_imag) + Bik_imag * Ajk_real; ! } ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! /* const BASE Ajj_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Ajj_real; ! IMAG(C, i * ldc + j) += temp1_imag * Ajj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 172,199 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * (-Ajk_imag); ! temp2_imag += Bik_real * (-Ajk_imag) + Bik_imag * Ajk_real; ! } ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! /* const BASE Ajj_imag = 0.0; */ ! REAL(C, i * ldc + j) += temp1_real * Ajj_real; ! IMAG(C, i * ldc + j) += temp1_imag * Ajj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } diff -x.info* -rc2P gsl-1.3/cblas/source_hemv.h gsl-1.4/cblas/source_hemv.h *** gsl-1.3/cblas/source_hemv.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_hemv.h Fri Jul 25 15:18:17 2003 *************** *** 78,91 **** IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, lda * i + j); ! BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; --- 78,91 ---- IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, lda * i + j); ! BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; *************** *** 95,99 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; INDEX iy = OFFSET(N, incY) + (N - 1) * incY; --- 95,99 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; INDEX iy = OFFSET(N, incY) + (N - 1) * incY; *************** *** 115,128 **** for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, lda * i + j); ! BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; --- 115,128 ---- for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(A, lda * i + j); ! BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; diff -x.info* -rc2P gsl-1.3/cblas/source_her.h gsl-1.4/cblas/source_her.h *** gsl-1.3/cblas/source_her.h Fri Apr 27 19:19:00 2001 --- gsl-1.4/cblas/source_her.h Fri Jul 25 15:18:17 2003 *************** *** 34,55 **** { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + i) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + i) = 0; ! jx += incX; } for (j = i + 1; j < N; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + j) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 34,55 ---- { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + i) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + i) = 0; ! jx += incX; } for (j = i + 1; j < N; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + j) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 58,74 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + j) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + i) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + i) = 0; ! jx += incX; } --- 58,74 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + j) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + j) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(A, lda * i + i) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(A, lda * i + i) = 0; ! jx += incX; } diff -x.info* -rc2P gsl-1.3/cblas/source_her2.h gsl-1.4/cblas/source_her2.h *** gsl-1.3/cblas/source_her2.h Fri Apr 27 19:19:52 2001 --- gsl-1.4/cblas/source_her2.h Fri Jul 25 15:18:17 2003 *************** *** 54,68 **** for (j = i + 1; j < N; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(A, lda * i + j) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } ix += incX; --- 54,68 ---- for (j = i + 1; j < N; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(A, lda * i + j) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } ix += incX; *************** *** 70,74 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); --- 70,74 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); *************** *** 91,105 **** for (j = 0; j < i; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(A, lda * i + j) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } --- 91,105 ---- for (j = 0; j < i; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(A, lda * i + j) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(A, lda * i + j) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } diff -x.info* -rc2P gsl-1.3/cblas/source_her2k.h gsl-1.4/cblas/source_her2k.h *** gsl-1.3/cblas/source_her2k.h Fri Apr 27 19:23:08 2001 --- gsl-1.4/cblas/source_her2k.h Fri Jul 25 15:18:17 2003 *************** *** 34,38 **** uplo = (Uplo == CblasUpper) ? CblasLower : CblasUpper; trans = (Trans == CblasNoTrans) ? CblasConjTrans : CblasNoTrans; ! alpha_imag *= -1; /* conjugate alpha */ } --- 34,38 ---- uplo = (Uplo == CblasUpper) ? CblasLower : CblasUpper; trans = (Trans == CblasNoTrans) ? CblasConjTrans : CblasNoTrans; ! alpha_imag *= -1; /* conjugate alpha */ } *************** *** 42,56 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } --- 42,56 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } *************** *** 58,76 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0.0; ! for (j = i + 1; j < N; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j < i; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0.0; } } --- 58,76 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0.0; ! for (j = i + 1; j < N; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j < i; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0.0; } } *************** *** 90,139 **** /* Cii += alpha Aik conj(Bik) + conj(alpha) Bik conj(Aik) */ { ! BASE temp_real = 0.0; ! /* BASE temp_imag = 0.0; */ ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! temp_real += temp1_real * Bik_real + temp1_imag * Bik_imag; ! } ! REAL(C, i * ldc + i) += 2 * temp_real; ! IMAG(C, i * ldc + i) = 0.0; } /* Cij += alpha Aik conj(Bjk) + conj(alpha) Bik conj(Ajk) */ for (j = i + 1; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! /* temp2 = alpha * Ajk */ ! const BASE temp2_real = alpha_real * Ajk_real - alpha_imag * Ajk_imag; ! const BASE temp2_imag = alpha_real * Ajk_imag + alpha_imag * Ajk_real; ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! ! /* Cij += alpha * Aik * conj(Bjk) + conj(alpha) * Bik * conj(Ajk) */ ! temp_real += ((temp1_real * Bjk_real + temp1_imag * Bjk_imag) ! + (Bik_real * temp2_real + Bik_imag * temp2_imag)); ! temp_imag += ((temp1_real * (-Bjk_imag) + temp1_imag * Bjk_real) ! + (Bik_real * (-temp2_imag) + Bik_imag * temp2_real)); ! } ! REAL(C, i * ldc + j) += temp_real; ! IMAG(C, i * ldc + j) += temp_imag; } } --- 90,139 ---- /* Cii += alpha Aik conj(Bik) + conj(alpha) Bik conj(Aik) */ { ! BASE temp_real = 0.0; ! /* BASE temp_imag = 0.0; */ ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! temp_real += temp1_real * Bik_real + temp1_imag * Bik_imag; ! } ! REAL(C, i * ldc + i) += 2 * temp_real; ! IMAG(C, i * ldc + i) = 0.0; } /* Cij += alpha Aik conj(Bjk) + conj(alpha) Bik conj(Ajk) */ for (j = i + 1; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! /* temp2 = alpha * Ajk */ ! const BASE temp2_real = alpha_real * Ajk_real - alpha_imag * Ajk_imag; ! const BASE temp2_imag = alpha_real * Ajk_imag + alpha_imag * Ajk_real; ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! ! /* Cij += alpha * Aik * conj(Bjk) + conj(alpha) * Bik * conj(Ajk) */ ! temp_real += ((temp1_real * Bjk_real + temp1_imag * Bjk_imag) ! + (Bik_real * temp2_real + Bik_imag * temp2_imag)); ! temp_imag += ((temp1_real * (-Bjk_imag) + temp1_imag * Bjk_real) ! + (Bik_real * (-temp2_imag) + Bik_imag * temp2_real)); ! } ! REAL(C, i * ldc + j) += temp_real; ! IMAG(C, i * ldc + j) += temp_imag; } } *************** *** 143,174 **** for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! /* temp1 = alpha * conj(Aki) */ ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * (-Aki_imag); ! BASE temp1_imag = alpha_real * (-Aki_imag) + alpha_imag * Aki_real; ! /* temp2 = conj(alpha) * conj(Bki) */ ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = -(alpha_real * Bki_imag + alpha_imag * Bki_real); ! ! /* Cii += alpha * conj(Aki) * Bki + conj(alpha) * conj(Bki) * Aki */ ! { ! REAL(C, i * lda + i) += 2 * (temp1_real * Bki_real - temp1_imag * Bki_imag); ! IMAG(C, i * lda + i) = 0.0; ! } ! ! for (j = i + 1; j < N; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! /* Cij += alpha * conj(Aki) * Bkj + conj(alpha) * conj(Bki) * Akj */ ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } } } --- 143,174 ---- for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! /* temp1 = alpha * conj(Aki) */ ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * (-Aki_imag); ! BASE temp1_imag = alpha_real * (-Aki_imag) + alpha_imag * Aki_real; ! /* temp2 = conj(alpha) * conj(Bki) */ ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = -(alpha_real * Bki_imag + alpha_imag * Bki_real); ! ! /* Cii += alpha * conj(Aki) * Bki + conj(alpha) * conj(Bki) * Aki */ ! { ! REAL(C, i * lda + i) += 2 * (temp1_real * Bki_real - temp1_imag * Bki_imag); ! IMAG(C, i * lda + i) = 0.0; ! } ! ! for (j = i + 1; j < N; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! /* Cij += alpha * conj(Aki) * Bkj + conj(alpha) * conj(Bki) * Akj */ ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } } } *************** *** 181,230 **** for (j = 0; j < i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! /* temp2 = alpha * Ajk */ ! const BASE temp2_real = alpha_real * Ajk_real - alpha_imag * Ajk_imag; ! const BASE temp2_imag = alpha_real * Ajk_imag + alpha_imag * Ajk_real; ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! ! /* Cij += alpha * Aik * conj(Bjk) + conj(alpha) * Bik * conj(Ajk) */ ! temp_real += ((temp1_real * Bjk_real + temp1_imag * Bjk_imag) ! + (Bik_real * temp2_real + Bik_imag * temp2_imag)); ! temp_imag += ((temp1_real * (-Bjk_imag) + temp1_imag * Bjk_real) ! + (Bik_real * (-temp2_imag) + Bik_imag * temp2_real)); ! } ! REAL(C, i * ldc + j) += temp_real; ! IMAG(C, i * ldc + j) += temp_imag; } /* Cii += alpha Aik conj(Bik) + conj(alpha) Bik conj(Aik) */ { ! BASE temp_real = 0.0; ! /* BASE temp_imag = 0.0; */ ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! temp_real += temp1_real * Bik_real + temp1_imag * Bik_imag; ! } ! REAL(C, i * ldc + i) += 2 * temp_real; ! IMAG(C, i * ldc + i) = 0.0; } } --- 181,230 ---- for (j = 0; j < i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! /* temp2 = alpha * Ajk */ ! const BASE temp2_real = alpha_real * Ajk_real - alpha_imag * Ajk_imag; ! const BASE temp2_imag = alpha_real * Ajk_imag + alpha_imag * Ajk_real; ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! ! /* Cij += alpha * Aik * conj(Bjk) + conj(alpha) * Bik * conj(Ajk) */ ! temp_real += ((temp1_real * Bjk_real + temp1_imag * Bjk_imag) ! + (Bik_real * temp2_real + Bik_imag * temp2_imag)); ! temp_imag += ((temp1_real * (-Bjk_imag) + temp1_imag * Bjk_real) ! + (Bik_real * (-temp2_imag) + Bik_imag * temp2_real)); ! } ! REAL(C, i * ldc + j) += temp_real; ! IMAG(C, i * ldc + j) += temp_imag; } /* Cii += alpha Aik conj(Bik) + conj(alpha) Bik conj(Aik) */ { ! BASE temp_real = 0.0; ! /* BASE temp_imag = 0.0; */ ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! /* temp1 = alpha * Aik */ ! const BASE temp1_real = alpha_real * Aik_real - alpha_imag * Aik_imag; ! const BASE temp1_imag = alpha_real * Aik_imag + alpha_imag * Aik_real; ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! temp_real += temp1_real * Bik_real + temp1_imag * Bik_imag; ! } ! REAL(C, i * ldc + i) += 2 * temp_real; ! IMAG(C, i * ldc + i) = 0.0; } } *************** *** 234,265 **** for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! /* temp1 = alpha * conj(Aki) */ ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * (-Aki_imag); ! BASE temp1_imag = alpha_real * (-Aki_imag) + alpha_imag * Aki_real; ! /* temp2 = conj(alpha) * conj(Bki) */ ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = -(alpha_real * Bki_imag + alpha_imag * Bki_real); ! ! for (j = 0; j < i; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! /* Cij += alpha * conj(Aki) * Bkj + conj(alpha) * conj(Bki) * Akj */ ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } ! ! /* Cii += alpha * conj(Aki) * Bki + conj(alpha) * conj(Bki) * Aki */ ! { ! REAL(C, i * lda + i) += 2 * (temp1_real * Bki_real - temp1_imag * Bki_imag); ! IMAG(C, i * lda + i) = 0.0; ! } } } --- 234,265 ---- for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! /* temp1 = alpha * conj(Aki) */ ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * (-Aki_imag); ! BASE temp1_imag = alpha_real * (-Aki_imag) + alpha_imag * Aki_real; ! /* temp2 = conj(alpha) * conj(Bki) */ ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = -(alpha_real * Bki_imag + alpha_imag * Bki_real); ! ! for (j = 0; j < i; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! /* Cij += alpha * conj(Aki) * Bkj + conj(alpha) * conj(Bki) * Akj */ ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } ! ! /* Cii += alpha * conj(Aki) * Bki + conj(alpha) * conj(Bki) * Aki */ ! { ! REAL(C, i * lda + i) += 2 * (temp1_real * Bki_real - temp1_imag * Bki_imag); ! IMAG(C, i * lda + i) = 0.0; ! } } } diff -x.info* -rc2P gsl-1.3/cblas/source_herk.h gsl-1.4/cblas/source_herk.h *** gsl-1.3/cblas/source_herk.h Fri Apr 27 19:24:26 2001 --- gsl-1.4/cblas/source_herk.h Fri Jul 25 15:18:17 2003 *************** *** 37,51 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } --- 37,51 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } *************** *** 53,71 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0; ! for (j = i + 1; j < N; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j < i; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0; } } --- 53,71 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0; ! for (j = i + 1; j < N; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j < i; j++) { ! REAL(C, ldc * i + j) *= beta; ! IMAG(C, ldc * i + j) *= beta; ! } ! REAL(C, ldc * i + i) *= beta; ! IMAG(C, ldc * i + i) = 0; } } *************** *** 84,99 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = -CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } --- 84,99 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = -CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } *************** *** 103,118 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = -CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } --- 103,118 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = -CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } *************** *** 122,137 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = -CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } --- 122,137 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = -CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } *************** *** 141,156 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = -CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } --- 141,156 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = -CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha * temp_real; ! IMAG(C, i * ldc + j) += alpha * temp_imag; } } diff -x.info* -rc2P gsl-1.3/cblas/source_hpmv.h gsl-1.4/cblas/source_hpmv.h *** gsl-1.3/cblas/source_hpmv.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_hpmv.h Fri Jul 25 15:18:17 2003 *************** *** 79,92 **** IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(Ap, TPUP(N, i, j)); ! BASE Aij_imag = conj * CONST_IMAG(Ap, TPUP(N, i, j)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; --- 79,92 ---- IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(Ap, TPUP(N, i, j)); ! BASE Aij_imag = conj * CONST_IMAG(Ap, TPUP(N, i, j)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; *************** *** 96,100 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); --- 96,100 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); *************** *** 116,129 **** IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(Ap, TPLO(N, i, j)); ! BASE Aij_imag = conj * CONST_IMAG(Ap, TPLO(N, i, j)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; --- 116,129 ---- IMAG(Y, iy) += temp1_imag * Aii_real; for (j = j_min; j < j_max; j++) { ! BASE Aij_real = CONST_REAL(Ap, TPLO(N, i, j)); ! BASE Aij_imag = conj * CONST_IMAG(Ap, TPLO(N, i, j)); ! REAL(Y, jy) += temp1_real * Aij_real - temp1_imag * (-Aij_imag); ! IMAG(Y, jy) += temp1_real * (-Aij_imag) + temp1_imag * Aij_real; ! x_real = CONST_REAL(X, jx); ! x_imag = CONST_IMAG(X, jx); ! temp2_real += x_real * Aij_real - x_imag * Aij_imag; ! temp2_imag += x_real * Aij_imag + x_imag * Aij_real; ! jx += incX; ! jy += incY; } REAL(Y, iy) += alpha_real * temp2_real - alpha_imag * temp2_imag; diff -x.info* -rc2P gsl-1.3/cblas/source_hpr.h gsl-1.4/cblas/source_hpr.h *** gsl-1.3/cblas/source_hpr.h Fri Apr 27 19:27:21 2001 --- gsl-1.4/cblas/source_hpr.h Fri Jul 25 15:18:17 2003 *************** *** 34,55 **** { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPUP(N, i, i)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPUP(N, i, i)) = 0; ! jx += incX; } for (j = i + 1; j < N; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPUP(N, i, j)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPUP(N, i, j)) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 34,55 ---- { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPUP(N, i, i)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPUP(N, i, i)) = 0; ! jx += incX; } for (j = i + 1; j < N; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPUP(N, i, j)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPUP(N, i, j)) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 58,74 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPLO(N, i, j)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPLO(N, i, j)) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPLO(N, i, i)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPLO(N, i, i)) = 0; ! jx += incX; } --- 58,74 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPLO(N, i, j)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPLO(N, i, j)) += X_imag * tmp_real + X_real * tmp_imag; ! jx += incX; } { ! const BASE X_real = CONST_REAL(X, jx); ! const BASE X_imag = -conj * CONST_IMAG(X, jx); ! REAL(Ap, TPLO(N, i, i)) += X_real * tmp_real - X_imag * tmp_imag; ! IMAG(Ap, TPLO(N, i, i)) = 0; ! jx += incX; } diff -x.info* -rc2P gsl-1.3/cblas/source_hpr2.h gsl-1.4/cblas/source_hpr2.h *** gsl-1.3/cblas/source_hpr2.h Fri Apr 27 19:28:03 2001 --- gsl-1.4/cblas/source_hpr2.h Fri Jul 25 15:18:17 2003 *************** *** 54,68 **** for (j = i + 1; j < N; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(Ap, TPUP(N, i, j)) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(Ap, TPUP(N, i, j)) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } ix += incX; --- 54,68 ---- for (j = i + 1; j < N; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(Ap, TPUP(N, i, j)) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(Ap, TPUP(N, i, j)) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } ix += incX; *************** *** 70,74 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); --- 70,74 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); *************** *** 91,105 **** for (j = 0; j < i; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(Ap, TPLO(N, i, j)) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(Ap, TPLO(N, i, j)) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } --- 91,105 ---- for (j = 0; j < i; j++) { ! const BASE Xj_real = CONST_REAL(X, jx); ! const BASE Xj_imag = CONST_IMAG(X, jx); ! const BASE Yj_real = CONST_REAL(Y, jy); ! const BASE Yj_imag = CONST_IMAG(Y, jy); ! REAL(Ap, TPLO(N, i, j)) += ((tmp1_real * Yj_real + tmp1_imag * Yj_imag) ! + (tmp2_real * Xj_real + tmp2_imag * Xj_imag)); ! IMAG(Ap, TPLO(N, i, j)) += ! conj * ((tmp1_imag * Yj_real - tmp1_real * Yj_imag) + ! (tmp2_imag * Xj_real - tmp2_real * Xj_imag)); ! jx += incX; ! jy += incY; } diff -x.info* -rc2P gsl-1.3/cblas/source_nrm2_c.h gsl-1.4/cblas/source_nrm2_c.h *** gsl-1.3/cblas/source_nrm2_c.h Fri Apr 27 18:46:05 2001 --- gsl-1.4/cblas/source_nrm2_c.h Fri Jul 25 15:18:17 2003 *************** *** 36,43 **** if (scale < ax) { ! ssq = 1.0 + ssq * (scale / ax) * (scale / ax); ! scale = ax; } else { ! ssq += (ax / scale) * (ax / scale); } } --- 36,43 ---- if (scale < ax) { ! ssq = 1.0 + ssq * (scale / ax) * (scale / ax); ! scale = ax; } else { ! ssq += (ax / scale) * (ax / scale); } } *************** *** 47,54 **** if (scale < ay) { ! ssq = 1.0 + ssq * (scale / ay) * (scale / ay); ! scale = ay; } else { ! ssq += (ay / scale) * (ay / scale); } } --- 47,54 ---- if (scale < ay) { ! ssq = 1.0 + ssq * (scale / ay) * (scale / ay); ! scale = ay; } else { ! ssq += (ay / scale) * (ay / scale); } } diff -x.info* -rc2P gsl-1.3/cblas/source_nrm2_r.h gsl-1.4/cblas/source_nrm2_r.h *** gsl-1.3/cblas/source_nrm2_r.h Fri Apr 27 18:32:25 2001 --- gsl-1.4/cblas/source_nrm2_r.h Fri Jul 25 15:18:17 2003 *************** *** 37,44 **** if (scale < ax) { ! ssq = 1.0 + ssq * (scale / ax) * (scale / ax); ! scale = ax; } else { ! ssq += (ax / scale) * (ax / scale); } } --- 37,44 ---- if (scale < ax) { ! ssq = 1.0 + ssq * (scale / ax) * (scale / ax); ! scale = ax; } else { ! ssq += (ax / scale) * (ax / scale); } } diff -x.info* -rc2P gsl-1.3/cblas/source_rotmg.h gsl-1.4/cblas/source_rotmg.h *** gsl-1.3/cblas/source_rotmg.h Fri Apr 27 18:55:10 2001 --- gsl-1.4/cblas/source_rotmg.h Fri Jul 25 15:18:17 2003 *************** *** 40,44 **** if (D2 * y == 0.0) { ! P[0] = -2; /* case of H = I, page 315 */ return; } --- 40,44 ---- if (D2 * y == 0.0) { ! P[0] = -2; /* case of H = I, page 315 */ return; } *************** *** 59,63 **** u = 1 - h21 * h12; ! if (u <= 0.0) { /* the case u <= 0 is rejected */ P[0] = -1; P[1] = 0; --- 59,63 ---- u = 1 - h21 * h12; ! if (u <= 0.0) { /* the case u <= 0 is rejected */ P[0] = -1; P[1] = 0; diff -x.info* -rc2P gsl-1.3/cblas/source_sbmv.h gsl-1.4/cblas/source_sbmv.h *** gsl-1.3/cblas/source_sbmv.h Fri Apr 27 18:32:25 2001 --- gsl-1.4/cblas/source_sbmv.h Fri Jul 25 15:18:17 2003 *************** *** 61,69 **** Y[iy] += tmp1 * A[0 + i * lda]; for (j = j_min; j < j_max; j++) { ! BASE Aij = A[(j - i) + i * lda]; ! Y[jy] += tmp1 * Aij; ! tmp2 += Aij * X[jx]; ! jx += incX; ! jy += incY; } Y[iy] += alpha * tmp2; --- 61,69 ---- Y[iy] += tmp1 * A[0 + i * lda]; for (j = j_min; j < j_max; j++) { ! BASE Aij = A[(j - i) + i * lda]; ! Y[jy] += tmp1 * Aij; ! tmp2 += Aij * X[jx]; ! jx += incX; ! jy += incY; } Y[iy] += alpha * tmp2; *************** *** 72,76 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); --- 72,76 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); *************** *** 84,92 **** INDEX jy = OFFSET(N, incY) + j_min * incY; for (j = j_min; j < j_max; j++) { ! BASE Aij = A[(K - i + j) + i * lda]; ! Y[jy] += tmp1 * Aij; ! tmp2 += Aij * X[jx]; ! jx += incX; ! jy += incY; } Y[iy] += tmp1 * A[K + i * lda] + alpha * tmp2; --- 84,92 ---- INDEX jy = OFFSET(N, incY) + j_min * incY; for (j = j_min; j < j_max; j++) { ! BASE Aij = A[(K - i + j) + i * lda]; ! Y[jy] += tmp1 * Aij; ! tmp2 += Aij * X[jx]; ! jx += incX; ! jy += incY; } Y[iy] += tmp1 * A[K + i * lda] + alpha * tmp2; diff -x.info* -rc2P gsl-1.3/cblas/source_spmv.h gsl-1.4/cblas/source_spmv.h *** gsl-1.3/cblas/source_spmv.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_spmv.h Fri Jul 25 15:18:17 2003 *************** *** 60,68 **** for (j = j_min; j < j_max; j++) { ! const BASE apk = Ap[TPUP(N, i, j)]; ! Y[jy] += tmp1 * apk; ! tmp2 += apk * X[jx]; ! jy += incY; ! jx += incX; } Y[iy] += alpha * tmp2; --- 60,68 ---- for (j = j_min; j < j_max; j++) { ! const BASE apk = Ap[TPUP(N, i, j)]; ! Y[jy] += tmp1 * apk; ! tmp2 += apk * X[jx]; ! jy += incY; ! jx += incX; } Y[iy] += alpha * tmp2; *************** *** 71,75 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); --- 71,75 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); *************** *** 86,94 **** for (j = j_min; j < j_max; j++) { ! const BASE apk = Ap[TPLO(N, i, j)]; ! Y[jy] += tmp1 * apk; ! tmp2 += apk * X[jx]; ! jy += incY; ! jx += incX; } Y[iy] += alpha * tmp2; --- 86,94 ---- for (j = j_min; j < j_max; j++) { ! const BASE apk = Ap[TPLO(N, i, j)]; ! Y[jy] += tmp1 * apk; ! tmp2 += apk * X[jx]; ! jy += incY; ! jx += incX; } Y[iy] += alpha * tmp2; diff -x.info* -rc2P gsl-1.3/cblas/source_spr.h gsl-1.4/cblas/source_spr.h *** gsl-1.3/cblas/source_spr.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_spr.h Fri Jul 25 15:18:17 2003 *************** *** 34,44 **** INDEX jx = ix; for (j = i; j < N; j++) { ! Ap[TPUP(N, i, j)] += X[jx] * tmp; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 34,44 ---- INDEX jx = ix; for (j = i; j < N; j++) { ! Ap[TPUP(N, i, j)] += X[jx] * tmp; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 46,51 **** INDEX jx = OFFSET(N, incX); for (j = 0; j <= i; j++) { ! Ap[TPLO(N, i, j)] += X[jx] * tmp; ! jx += incX; } ix += incX; --- 46,51 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j <= i; j++) { ! Ap[TPLO(N, i, j)] += X[jx] * tmp; ! jx += incX; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_spr2.h gsl-1.4/cblas/source_spr2.h *** gsl-1.3/cblas/source_spr2.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_spr2.h Fri Jul 25 15:18:17 2003 *************** *** 37,43 **** INDEX jy = iy; for (j = i; j < N; j++) { ! Ap[TPUP(N, i, j)] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; --- 37,43 ---- INDEX jy = iy; for (j = i; j < N; j++) { ! Ap[TPUP(N, i, j)] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; *************** *** 45,49 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); --- 45,49 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); *************** *** 54,60 **** INDEX jy = OFFSET(N, incY); for (j = 0; j <= i; j++) { ! Ap[TPLO(N, i, j)] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; --- 54,60 ---- INDEX jy = OFFSET(N, incY); for (j = 0; j <= i; j++) { ! Ap[TPLO(N, i, j)] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_symm_c.h gsl-1.4/cblas/source_symm_c.h *** gsl-1.3/cblas/source_symm_c.h Fri Apr 27 19:29:31 2001 --- gsl-1.4/cblas/source_symm_c.h Fri Jul 25 15:18:17 2003 *************** *** 48,53 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; } } --- 48,53 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; } } *************** *** 55,62 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; } } --- 55,62 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; } } *************** *** 72,99 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = CONST_IMAG(A, i * lda + i); ! REAL(C, i * ldc + j) += temp1_real * Aii_real - temp1_imag * Aii_imag; ! IMAG(C, i * ldc + j) += temp1_real * Aii_imag + temp1_imag * Aii_real; ! } ! for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - Aik_imag * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + Aik_imag * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 72,99 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = CONST_IMAG(A, i * lda + i); ! REAL(C, i * ldc + j) += temp1_real * Aii_real - temp1_imag * Aii_imag; ! IMAG(C, i * ldc + j) += temp1_real * Aii_imag + temp1_imag * Aii_real; ! } ! for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - Aik_imag * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + Aik_imag * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } *************** *** 105,132 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - Aik_imag * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + Aik_imag * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = CONST_IMAG(A, i * lda + i); ! REAL(C, i * ldc + j) += temp1_real * Aii_real - temp1_imag * Aii_imag; ! IMAG(C, i * ldc + j) += temp1_real * Aii_imag + temp1_imag * Aii_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 105,132 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = CONST_REAL(B, ldb * k + j); ! const BASE Bkj_imag = CONST_IMAG(B, ldb * k + j); ! REAL(C, k * ldc + j) += Aik_real * temp1_real - Aik_imag * temp1_imag; ! IMAG(C, k * ldc + j) += Aik_real * temp1_imag + Aik_imag * temp1_real; ! temp2_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp2_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = CONST_IMAG(A, i * lda + i); ! REAL(C, i * ldc + j) += temp1_real * Aii_real - temp1_imag * Aii_imag; ! IMAG(C, i * ldc + j) += temp1_real * Aii_imag + temp1_imag * Aii_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } *************** *** 138,165 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = CONST_IMAG(A, j * lda + j); ! REAL(C, i * ldc + j) += temp1_real * Ajj_real - temp1_imag * Ajj_imag; ! IMAG(C, i * ldc + j) += temp1_real * Ajj_imag + temp1_imag * Ajj_real; ! } ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * Ajk_imag; ! temp2_imag += Bik_real * Ajk_imag + Bik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 138,165 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = CONST_IMAG(A, j * lda + j); ! REAL(C, i * ldc + j) += temp1_real * Ajj_real - temp1_imag * Ajj_imag; ! IMAG(C, i * ldc + j) += temp1_real * Ajj_imag + temp1_imag * Ajj_real; ! } ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * Ajk_imag; ! temp2_imag += Bik_real * Ajk_imag + Bik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } *************** *** 171,198 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * Ajk_imag; ! temp2_imag += Bik_real * Ajk_imag + Bik_imag * Ajk_real; ! } ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = CONST_IMAG(A, j * lda + j); ! REAL(C, i * ldc + j) += temp1_real * Ajj_real - temp1_imag * Ajj_imag; ! IMAG(C, i * ldc + j) += temp1_real * Ajj_imag + temp1_imag * Ajj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } --- 171,198 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE Bij_real = CONST_REAL(B, ldb * i + j); ! const BASE Bij_imag = CONST_IMAG(B, ldb * i + j); ! const BASE temp1_real = alpha_real * Bij_real - alpha_imag * Bij_imag; ! const BASE temp1_imag = alpha_real * Bij_imag + alpha_imag * Bij_real; ! BASE temp2_real = 0.0; ! BASE temp2_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = CONST_REAL(B, ldb * i + k); ! const BASE Bik_imag = CONST_IMAG(B, ldb * i + k); ! REAL(C, i * ldc + k) += temp1_real * Ajk_real - temp1_imag * Ajk_imag; ! IMAG(C, i * ldc + k) += temp1_real * Ajk_imag + temp1_imag * Ajk_real; ! temp2_real += Bik_real * Ajk_real - Bik_imag * Ajk_imag; ! temp2_imag += Bik_real * Ajk_imag + Bik_imag * Ajk_real; ! } ! { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = CONST_IMAG(A, j * lda + j); ! REAL(C, i * ldc + j) += temp1_real * Ajj_real - temp1_imag * Ajj_imag; ! IMAG(C, i * ldc + j) += temp1_real * Ajj_imag + temp1_imag * Ajj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp2_real - alpha_imag * temp2_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp2_imag + alpha_imag * temp2_real; } } diff -x.info* -rc2P gsl-1.3/cblas/source_symm_r.h gsl-1.4/cblas/source_symm_r.h *** gsl-1.3/cblas/source_symm_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_symm_r.h Fri Jul 25 15:18:17 2003 *************** *** 42,46 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] = 0.0; } } --- 42,46 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] = 0.0; } } *************** *** 48,52 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] *= beta; } } --- 48,52 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! C[ldc * i + j] *= beta; } } *************** *** 62,74 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! C[i * ldc + j] += temp1 * A[i * lda + i]; ! for (k = i + 1; k < n1; k++) { ! const BASE Aik = A[i * lda + k]; ! C[k * ldc + j] += Aik * temp1; ! temp2 += Aik * B[ldb * k + j]; ! } ! C[i * ldc + j] += alpha * temp2; } } --- 62,74 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! C[i * ldc + j] += temp1 * A[i * lda + i]; ! for (k = i + 1; k < n1; k++) { ! const BASE Aik = A[i * lda + k]; ! C[k * ldc + j] += Aik * temp1; ! temp2 += Aik * B[ldb * k + j]; ! } ! C[i * ldc + j] += alpha * temp2; } } *************** *** 80,91 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik = A[i * lda + k]; ! C[k * ldc + j] += Aik * temp1; ! temp2 += Aik * B[ldb * k + j]; ! } ! C[i * ldc + j] += temp1 * A[i * lda + i] + alpha * temp2; } } --- 80,91 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik = A[i * lda + k]; ! C[k * ldc + j] += Aik * temp1; ! temp2 += Aik * B[ldb * k + j]; ! } ! C[i * ldc + j] += temp1 * A[i * lda + i] + alpha * temp2; } } *************** *** 97,109 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! C[i * ldc + j] += temp1 * A[j * lda + j]; ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk = A[j * lda + k]; ! C[i * ldc + k] += temp1 * Ajk; ! temp2 += B[ldb * i + k] * Ajk; ! } ! C[i * ldc + j] += alpha * temp2; } } --- 97,109 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! C[i * ldc + j] += temp1 * A[j * lda + j]; ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk = A[j * lda + k]; ! C[i * ldc + k] += temp1 * Ajk; ! temp2 += B[ldb * i + k] * Ajk; ! } ! C[i * ldc + j] += alpha * temp2; } } *************** *** 115,126 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk = A[j * lda + k]; ! C[i * ldc + k] += temp1 * Ajk; ! temp2 += B[ldb * i + k] * Ajk; ! } ! C[i * ldc + j] += temp1 * A[j * lda + j] + alpha * temp2; } } --- 115,126 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! const BASE temp1 = alpha * B[ldb * i + j]; ! BASE temp2 = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk = A[j * lda + k]; ! C[i * ldc + k] += temp1 * Ajk; ! temp2 += B[ldb * i + k] * Ajk; ! } ! C[i * ldc + j] += temp1 * A[j * lda + j] + alpha * temp2; } } diff -x.info* -rc2P gsl-1.3/cblas/source_symv.h gsl-1.4/cblas/source_symv.h *** gsl-1.3/cblas/source_symv.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_symv.h Fri Jul 25 15:18:17 2003 *************** *** 57,64 **** Y[iy] += temp1 * A[lda * i + i]; for (j = j_min; j < j_max; j++) { ! Y[jy] += temp1 * A[lda * i + j]; ! temp2 += X[jx] * A[lda * i + j]; ! jx += incX; ! jy += incY; } Y[iy] += alpha * temp2; --- 57,64 ---- Y[iy] += temp1 * A[lda * i + i]; for (j = j_min; j < j_max; j++) { ! Y[jy] += temp1 * A[lda * i + j]; ! temp2 += X[jx] * A[lda * i + j]; ! jx += incX; ! jy += incY; } Y[iy] += alpha * temp2; *************** *** 67,71 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; INDEX iy = OFFSET(N, incY) + (N - 1) * incY; --- 67,71 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; INDEX iy = OFFSET(N, incY) + (N - 1) * incY; *************** *** 79,86 **** Y[iy] += temp1 * A[lda * i + i]; for (j = j_min; j < j_max; j++) { ! Y[jy] += temp1 * A[lda * i + j]; ! temp2 += X[jx] * A[lda * i + j]; ! jx += incX; ! jy += incY; } Y[iy] += alpha * temp2; --- 79,86 ---- Y[iy] += temp1 * A[lda * i + i]; for (j = j_min; j < j_max; j++) { ! Y[jy] += temp1 * A[lda * i + j]; ! temp2 += X[jx] * A[lda * i + j]; ! jx += incX; ! jy += incY; } Y[iy] += alpha * temp2; diff -x.info* -rc2P gsl-1.3/cblas/source_syr.h gsl-1.4/cblas/source_syr.h *** gsl-1.3/cblas/source_syr.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_syr.h Fri Jul 25 15:18:17 2003 *************** *** 34,44 **** INDEX jx = ix; for (j = i; j < N; j++) { ! A[lda * i + j] += X[jx] * tmp; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 34,44 ---- INDEX jx = ix; for (j = i; j < N; j++) { ! A[lda * i + j] += X[jx] * tmp; ! jx += incX; } ix += incX; } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 46,51 **** INDEX jx = OFFSET(N, incX); for (j = 0; j <= i; j++) { ! A[lda * i + j] += X[jx] * tmp; ! jx += incX; } ix += incX; --- 46,51 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j <= i; j++) { ! A[lda * i + j] += X[jx] * tmp; ! jx += incX; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_syr2.h gsl-1.4/cblas/source_syr2.h *** gsl-1.3/cblas/source_syr2.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_syr2.h Fri Jul 25 15:18:17 2003 *************** *** 37,43 **** INDEX jy = iy; for (j = i; j < N; j++) { ! A[lda * i + j] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; --- 37,43 ---- INDEX jy = iy; for (j = i; j < N; j++) { ! A[lda * i + j] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; *************** *** 45,49 **** } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); --- 45,49 ---- } } else if ((order == CblasRowMajor && Uplo == CblasLower) ! || (order == CblasColMajor && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); INDEX iy = OFFSET(N, incY); *************** *** 54,60 **** INDEX jy = OFFSET(N, incY); for (j = 0; j <= i; j++) { ! A[lda * i + j] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; --- 54,60 ---- INDEX jy = OFFSET(N, incY); for (j = 0; j <= i; j++) { ! A[lda * i + j] += tmp1 * Y[jy] + tmp2 * X[jx]; ! jx += incX; ! jy += incY; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_syr2k_c.h gsl-1.4/cblas/source_syr2k_c.h *** gsl-1.3/cblas/source_syr2k_c.h Fri Apr 27 19:31:25 2001 --- gsl-1.4/cblas/source_syr2k_c.h Fri Jul 25 15:18:17 2003 *************** *** 44,58 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } --- 44,58 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } *************** *** 60,78 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } --- 60,78 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } *************** *** 87,108 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! temp_real += ((Aik_real * Bjk_real - Aik_imag * Bjk_imag) ! + (Bik_real * Ajk_real - Bik_imag * Ajk_imag)); ! temp_imag += ((Aik_real * Bjk_imag + Aik_imag * Bjk_real) ! + (Bik_real * Ajk_imag + Bik_imag * Ajk_real)); ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 87,108 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! temp_real += ((Aik_real * Bjk_real - Aik_imag * Bjk_imag) ! + (Bik_real * Ajk_real - Bik_imag * Ajk_imag)); ! temp_imag += ((Aik_real * Bjk_imag + Aik_imag * Bjk_real) ! + (Bik_real * Ajk_imag + Bik_imag * Ajk_real)); ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 112,133 **** for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * Aki_imag; ! BASE temp1_imag = alpha_real * Aki_imag + alpha_imag * Aki_real; ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = alpha_real * Bki_imag + alpha_imag * Bki_real; ! for (j = i; j < N; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } } } --- 112,133 ---- for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * Aki_imag; ! BASE temp1_imag = alpha_real * Aki_imag + alpha_imag * Aki_real; ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = alpha_real * Bki_imag + alpha_imag * Bki_real; ! for (j = i; j < N; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } } } *************** *** 138,159 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! temp_real += ((Aik_real * Bjk_real - Aik_imag * Bjk_imag) ! + (Bik_real * Ajk_real - Bik_imag * Ajk_imag)); ! temp_imag += ((Aik_real * Bjk_imag + Aik_imag * Bjk_real) ! + (Bik_real * Ajk_imag + Bik_imag * Ajk_real)); ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 138,159 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Bik_real = CONST_REAL(B, i * ldb + k); ! const BASE Bik_imag = CONST_IMAG(B, i * ldb + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! const BASE Bjk_real = CONST_REAL(B, j * ldb + k); ! const BASE Bjk_imag = CONST_IMAG(B, j * ldb + k); ! temp_real += ((Aik_real * Bjk_real - Aik_imag * Bjk_imag) ! + (Bik_real * Ajk_real - Bik_imag * Ajk_imag)); ! temp_imag += ((Aik_real * Bjk_imag + Aik_imag * Bjk_real) ! + (Bik_real * Ajk_imag + Bik_imag * Ajk_real)); ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 163,184 **** for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * Aki_imag; ! BASE temp1_imag = alpha_real * Aki_imag + alpha_imag * Aki_real; ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = alpha_real * Bki_imag + alpha_imag * Bki_real; ! for (j = 0; j <= i; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } } } --- 163,184 ---- for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE Aki_real = CONST_REAL(A, k * lda + i); ! BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! BASE Bki_real = CONST_REAL(B, k * ldb + i); ! BASE Bki_imag = CONST_IMAG(B, k * ldb + i); ! BASE temp1_real = alpha_real * Aki_real - alpha_imag * Aki_imag; ! BASE temp1_imag = alpha_real * Aki_imag + alpha_imag * Aki_real; ! BASE temp2_real = alpha_real * Bki_real - alpha_imag * Bki_imag; ! BASE temp2_imag = alpha_real * Bki_imag + alpha_imag * Bki_real; ! for (j = 0; j <= i; j++) { ! BASE Akj_real = CONST_REAL(A, k * lda + j); ! BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! BASE Bkj_real = CONST_REAL(B, k * ldb + j); ! BASE Bkj_imag = CONST_IMAG(B, k * ldb + j); ! REAL(C, i * lda + j) += (temp1_real * Bkj_real - temp1_imag * Bkj_imag) ! + (temp2_real * Akj_real - temp2_imag * Akj_imag); ! IMAG(C, i * lda + j) += (temp1_real * Bkj_imag + temp1_imag * Bkj_real) ! + (temp2_real * Akj_imag + temp2_imag * Akj_real); ! } } } diff -x.info* -rc2P gsl-1.3/cblas/source_syr2k_r.h gsl-1.4/cblas/source_syr2k_r.h *** gsl-1.3/cblas/source_syr2k_r.h Fri Apr 27 18:53:09 2001 --- gsl-1.4/cblas/source_syr2k_r.h Fri Jul 25 15:18:17 2003 *************** *** 42,54 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] = 0.0; ! } } } --- 42,54 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] = 0.0; ! } } } *************** *** 56,68 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] *= beta; ! } } } --- 56,68 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] *= beta; ! } } } *************** *** 76,85 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += (A[i * lda + k] * B[j * ldb + k] ! + B[i * ldb + k] * A[j * lda + k]); ! } ! C[i * ldc + j] += alpha * temp; } } --- 76,85 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += (A[i * lda + k] * B[j * ldb + k] ! + B[i * ldb + k] * A[j * lda + k]); ! } ! C[i * ldc + j] += alpha * temp; } } *************** *** 89,97 **** for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE temp1 = alpha * A[k * lda + i]; ! BASE temp2 = alpha * B[k * ldb + i]; ! for (j = i; j < N; j++) { ! C[i * lda + j] += temp1 * B[k * ldb + j] + temp2 * A[k * lda + j]; ! } } } --- 89,97 ---- for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE temp1 = alpha * A[k * lda + i]; ! BASE temp2 = alpha * B[k * ldb + i]; ! for (j = i; j < N; j++) { ! C[i * lda + j] += temp1 * B[k * ldb + j] + temp2 * A[k * lda + j]; ! } } } *************** *** 102,111 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += (A[i * lda + k] * B[j * ldb + k] ! + B[i * ldb + k] * A[j * lda + k]); ! } ! C[i * ldc + j] += alpha * temp; } } --- 102,111 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += (A[i * lda + k] * B[j * ldb + k] ! + B[i * ldb + k] * A[j * lda + k]); ! } ! C[i * ldc + j] += alpha * temp; } } *************** *** 115,123 **** for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE temp1 = alpha * A[k * lda + i]; ! BASE temp2 = alpha * B[k * ldb + i]; ! for (j = 0; j <= i; j++) { ! C[i * lda + j] += temp1 * B[k * ldb + j] + temp2 * A[k * lda + j]; ! } } } --- 115,123 ---- for (k = 0; k < K; k++) { for (i = 0; i < N; i++) { ! BASE temp1 = alpha * A[k * lda + i]; ! BASE temp2 = alpha * B[k * ldb + i]; ! for (j = 0; j <= i; j++) { ! C[i * lda + j] += temp1 * B[k * ldb + j] + temp2 * A[k * lda + j]; ! } } } diff -x.info* -rc2P gsl-1.3/cblas/source_syrk_c.h gsl-1.4/cblas/source_syrk_c.h *** gsl-1.3/cblas/source_syrk_c.h Fri Apr 27 19:32:14 2001 --- gsl-1.4/cblas/source_syrk_c.h Fri Jul 25 15:18:17 2003 *************** *** 45,59 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } --- 45,59 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! REAL(C, ldc * i + j) = 0.0; ! IMAG(C, ldc * i + j) = 0.0; ! } } } *************** *** 61,79 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } --- 61,79 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! const BASE Cij_real = REAL(C, ldc * i + j); ! const BASE Cij_imag = IMAG(C, ldc * i + j); ! REAL(C, ldc * i + j) = beta_real * Cij_real - beta_imag * Cij_imag; ! IMAG(C, ldc * i + j) = beta_real * Cij_imag + beta_imag * Cij_real; ! } } } *************** *** 87,102 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 87,102 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 106,121 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 106,121 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 125,140 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 125,140 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = CONST_IMAG(A, i * lda + k); ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = CONST_IMAG(A, j * lda + k); ! temp_real += Aik_real * Ajk_real - Aik_imag * Ajk_imag; ! temp_imag += Aik_real * Ajk_imag + Aik_imag * Ajk_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 144,159 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } --- 144,159 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < K; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = CONST_IMAG(A, k * lda + i); ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = CONST_IMAG(A, k * lda + j); ! temp_real += Aki_real * Akj_real - Aki_imag * Akj_imag; ! temp_imag += Aki_real * Akj_imag + Aki_imag * Akj_real; ! } ! REAL(C, i * ldc + j) += alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(C, i * ldc + j) += alpha_real * temp_imag + alpha_imag * temp_real; } } diff -x.info* -rc2P gsl-1.3/cblas/source_syrk_r.h gsl-1.4/cblas/source_syrk_r.h *** gsl-1.3/cblas/source_syrk_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_syrk_r.h Fri Jul 25 15:18:17 2003 *************** *** 42,54 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] = 0.0; ! } } } --- 42,54 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] = 0.0; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] = 0.0; ! } } } *************** *** 56,68 **** if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] *= beta; ! } } } --- 56,68 ---- if (uplo == CblasUpper) { for (i = 0; i < N; i++) { ! for (j = i; j < N; j++) { ! C[ldc * i + j] *= beta; ! } } } else { for (i = 0; i < N; i++) { ! for (j = 0; j <= i; j++) { ! C[ldc * i + j] *= beta; ! } } } *************** *** 76,84 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[i * lda + k] * A[j * lda + k]; ! } ! C[i * ldc + j] += alpha * temp; } } --- 76,84 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[i * lda + k] * A[j * lda + k]; ! } ! C[i * ldc + j] += alpha * temp; } } *************** *** 88,96 **** for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[k * lda + i] * A[k * lda + j]; ! } ! C[i * ldc + j] += alpha * temp; } } --- 88,96 ---- for (i = 0; i < N; i++) { for (j = i; j < N; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[k * lda + i] * A[k * lda + j]; ! } ! C[i * ldc + j] += alpha * temp; } } *************** *** 100,108 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[i * lda + k] * A[j * lda + k]; ! } ! C[i * ldc + j] += alpha * temp; } } --- 100,108 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[i * lda + k] * A[j * lda + k]; ! } ! C[i * ldc + j] += alpha * temp; } } *************** *** 112,120 **** for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[k * lda + i] * A[k * lda + j]; ! } ! C[i * ldc + j] += alpha * temp; } } --- 112,120 ---- for (i = 0; i < N; i++) { for (j = 0; j <= i; j++) { ! BASE temp = 0.0; ! for (k = 0; k < K; k++) { ! temp += A[k * lda + i] * A[k * lda + j]; ! } ! C[i * ldc + j] += alpha * temp; } } diff -x.info* -rc2P gsl-1.3/cblas/source_tbmv_c.h gsl-1.4/cblas/source_tbmv_c.h *** gsl-1.3/cblas/source_tbmv_c.h Fri Apr 27 19:34:24 2001 --- gsl-1.4/cblas/source_tbmv_c.h Fri Jul 25 15:18:17 2003 *************** *** 37,69 **** INDEX jx = OFFSET(N, incX) + incX * j_min; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + (j - i)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + (j - i)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + 0); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + 0); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; ! for (i = N; i > 0 && i--;) { /* N-1 ... 0 */ BASE temp_r = 0.0; BASE temp_i = 0.0; --- 37,69 ---- INDEX jx = OFFSET(N, incX) + incX * j_min; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + (j - i)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + (j - i)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + 0); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + 0); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; ! for (i = N; i > 0 && i--;) { /* N-1 ... 0 */ BASE temp_r = 0.0; BASE temp_i = 0.0; *************** *** 72,105 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + (K - i + j)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + (K - i + j)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + K); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + K); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ INDEX ix = OFFSET(N, incX) + (N - 1) * incX; ! for (i = N; i > 0 && i--;) { /* N-1 ... 0 */ BASE temp_r = 0.0; BASE temp_i = 0.0; --- 72,105 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + (K - i + j)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + (K - i + j)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + K); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + K); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ INDEX ix = OFFSET(N, incX) + (N - 1) * incX; ! for (i = N; i > 0 && i--;) { /* N-1 ... 0 */ BASE temp_r = 0.0; BASE temp_i = 0.0; *************** *** 108,137 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + (i - j)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + (i - j)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + 0); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + 0); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 108,137 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + (i - j)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + (i - j)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + 0); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + 0); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 142,166 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + (K - j + i)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + (K - j + i)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + K); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + K); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; --- 142,166 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + (K - j + i)); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + (K - j + i)); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + K); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + K); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_tbmv_r.h gsl-1.4/cblas/source_tbmv_r.h *** gsl-1.3/cblas/source_tbmv_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_tbmv_r.h Fri Jul 25 15:18:17 2003 *************** *** 38,43 **** for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + (j - i)]; ! jx += incX; } --- 38,43 ---- for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + (j - i)]; ! jx += incX; } *************** *** 46,50 **** } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; --- 46,50 ---- } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; *************** *** 55,60 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + (K - i + j)]; ! jx += incX; } X[ix] = temp; --- 55,60 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + (K - i + j)]; ! jx += incX; } X[ix] = temp; *************** *** 63,67 **** } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ INDEX ix = OFFSET(N, incX) + (N - 1) * incX; --- 63,67 ---- } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ INDEX ix = OFFSET(N, incX) + (N - 1) * incX; *************** *** 73,88 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + (i - j)]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + 0]; } else { ! X[ix] += temp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); --- 73,88 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + (i - j)]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + 0]; } else { ! X[ix] += temp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); *************** *** 93,103 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + (K - j + i)]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + K]; } else { ! X[ix] += temp; } ix += incX; --- 93,103 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + (K - j + i)]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + K]; } else { ! X[ix] += temp; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_tbsv_c.h gsl-1.4/cblas/source_tbsv_c.h *** gsl-1.3/cblas/source_tbsv_c.h Wed May 2 13:14:34 2001 --- gsl-1.4/cblas/source_tbsv_c.h Fri Jul 25 15:18:17 2003 *************** *** 41,64 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + (j - i)); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + (j - i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + 0); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + 0); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; --- 41,64 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + (j - i)); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + (j - i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + 0); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + 0); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; *************** *** 66,70 **** } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ --- 66,70 ---- } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ *************** *** 78,105 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + (K + j - i)); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + (K + j - i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + K); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + K); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ --- 78,105 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + (K + j - i)); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + (K + j - i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + K); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + K); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ *************** *** 115,142 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, (i - j) + lda * j); ! const BASE Aij_imag = conj * CONST_IMAG(A, (i - j) + lda * j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, 0 + lda * i); ! const BASE a_imag = conj * CONST_IMAG(A, 0 + lda * i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ --- 115,142 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, (i - j) + lda * j); ! const BASE Aij_imag = conj * CONST_IMAG(A, (i - j) + lda * j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, 0 + lda * i); ! const BASE a_imag = conj * CONST_IMAG(A, 0 + lda * i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ *************** *** 151,174 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, (K + i - j) + lda * j); ! const BASE Aij_imag = conj * CONST_IMAG(A, (K + i - j) + lda * j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, K + lda * i); ! const BASE a_imag = conj * CONST_IMAG(A, K + lda * i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; --- 151,174 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij_real = CONST_REAL(A, (K + i - j) + lda * j); ! const BASE Aij_imag = conj * CONST_IMAG(A, (K + i - j) + lda * j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, K + lda * i); ! const BASE a_imag = conj * CONST_IMAG(A, K + lda * i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; diff -x.info* -rc2P gsl-1.3/cblas/source_tbsv_r.h gsl-1.4/cblas/source_tbsv_r.h *** gsl-1.3/cblas/source_tbsv_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_tbsv_r.h Fri Jul 25 15:18:17 2003 *************** *** 38,54 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij = A[lda * i + (j - i)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + 0]; } else { ! X[ix] = tmp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ --- 38,54 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij = A[lda * i + (j - i)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + 0]; } else { ! X[ix] = tmp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ *************** *** 61,77 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij = A[lda * i + (K + j - i)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + K]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ --- 61,77 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aij = A[lda * i + (K + j - i)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + K]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ *************** *** 85,101 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aji = A[(i - j) + lda * j]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[0 + lda * i]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ --- 85,101 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aji = A[(i - j) + lda * j]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[0 + lda * i]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ *************** *** 107,118 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aji = A[(K + i - j) + lda * j]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[K + lda * i]; } else { ! X[ix] = tmp; } ix -= incX; --- 107,118 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! const BASE Aji = A[(K + i - j) + lda * j]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[K + lda * i]; } else { ! X[ix] = tmp; } ix -= incX; diff -x.info* -rc2P gsl-1.3/cblas/source_tpmv_c.h gsl-1.4/cblas/source_tpmv_c.h *** gsl-1.3/cblas/source_tpmv_c.h Fri Apr 27 19:43:20 2001 --- gsl-1.4/cblas/source_tpmv_c.h Fri Jul 25 15:18:17 2003 *************** *** 36,46 **** BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } --- 36,46 ---- BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } *************** *** 63,67 **** } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + incX * (N - 1); --- 63,67 ---- } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + incX * (N - 1); *************** *** 72,82 **** BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } --- 72,82 ---- BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } *************** *** 99,103 **** } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ --- 99,103 ---- } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ *************** *** 109,119 **** BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } { --- 109,119 ---- BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } { *************** *** 135,139 **** } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); --- 135,139 ---- } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); *************** *** 144,154 **** BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } { --- 144,154 ---- BASE temp_i; if (nonunit) { ! BASE x_real = REAL(X, ix); ! BASE x_imag = IMAG(X, ix); ! temp_r = Aii_real * x_real - Aii_imag * x_imag; ! temp_i = Aii_real * x_imag + Aii_imag * x_real; } else { ! temp_r = REAL(X, ix); ! temp_i = IMAG(X, ix); } { diff -x.info* -rc2P gsl-1.3/cblas/source_tpmv_r.h gsl-1.4/cblas/source_tpmv_r.h *** gsl-1.3/cblas/source_tpmv_r.h Fri Apr 27 18:57:20 2001 --- gsl-1.4/cblas/source_tpmv_r.h Fri Jul 25 15:18:17 2003 *************** *** 36,42 **** INDEX jx = OFFSET(N, incX) + (i + 1) * incX; for (j = i + 1; j < N; j++) { ! atmp = Ap[TPUP(N, i, j)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; --- 36,42 ---- INDEX jx = OFFSET(N, incX) + (i + 1) * incX; for (j = i + 1; j < N; j++) { ! atmp = Ap[TPUP(N, i, j)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; *************** *** 44,48 **** } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; --- 44,48 ---- } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; *************** *** 52,58 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! atmp = Ap[TPLO(N, i, j)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; --- 52,58 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! atmp = Ap[TPLO(N, i, j)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; *************** *** 60,64 **** } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ --- 60,64 ---- } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ *************** *** 69,75 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! atmp = Ap[TPUP(N, j, i)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; --- 69,75 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! atmp = Ap[TPUP(N, j, i)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; *************** *** 77,81 **** } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); --- 77,81 ---- } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); *************** *** 85,91 **** INDEX jx = OFFSET(N, incX) + (i + 1) * incX; for (j = i + 1; j < N; j++) { ! atmp = Ap[TPLO(N, j, i)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; --- 85,91 ---- INDEX jx = OFFSET(N, incX) + (i + 1) * incX; for (j = i + 1; j < N; j++) { ! atmp = Ap[TPLO(N, j, i)]; ! temp += atmp * X[jx]; ! jx += incX; } X[ix] = temp; diff -x.info* -rc2P gsl-1.3/cblas/source_tpsv_c.h gsl-1.4/cblas/source_tpsv_c.h *** gsl-1.3/cblas/source_tpsv_c.h Wed May 2 13:14:34 2001 --- gsl-1.4/cblas/source_tpsv_c.h Fri Jul 25 15:18:17 2003 *************** *** 53,76 **** INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPUP(N, i, j)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPUP(N, i, j)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPUP(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPUP(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; --- 53,76 ---- INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPUP(N, i, j)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPUP(N, i, j)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPUP(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPUP(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; *************** *** 78,82 **** } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ --- 78,82 ---- } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ *************** *** 102,129 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPLO(N, i, j)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPLO(N, i, j)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPLO(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPLO(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ --- 102,129 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPLO(N, i, j)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPLO(N, i, j)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPLO(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPLO(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ *************** *** 151,178 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPUP(N, j, i)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPUP(N, j, i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPUP(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPUP(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ --- 151,178 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPUP(N, j, i)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPUP(N, j, i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPUP(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPUP(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ *************** *** 199,222 **** INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPLO(N, j, i)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPLO(N, j, i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPLO(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPLO(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; --- 199,222 ---- INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(Ap, TPLO(N, j, i)); ! const BASE Aij_imag = conj * CONST_IMAG(Ap, TPLO(N, j, i)); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(Ap, TPLO(N, i, i)); ! const BASE a_imag = conj * CONST_IMAG(Ap, TPLO(N, i, i)); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; diff -x.info* -rc2P gsl-1.3/cblas/source_tpsv_r.h gsl-1.4/cblas/source_tpsv_r.h *** gsl-1.3/cblas/source_tpsv_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_tpsv_r.h Fri Jul 25 15:18:17 2003 *************** *** 40,56 **** INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij = Ap[TPUP(N, i, j)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPUP(N, i, i)]; } else { ! X[ix] = tmp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ --- 40,56 ---- INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij = Ap[TPUP(N, i, j)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPUP(N, i, i)]; } else { ! X[ix] = tmp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ *************** *** 64,80 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij = Ap[TPLO(N, i, j)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPLO(N, i, j)]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ --- 64,80 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij = Ap[TPLO(N, i, j)]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPLO(N, i, j)]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ *************** *** 90,106 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aji = Ap[TPUP(N, j, i)]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPUP(N, i, i)]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ --- 90,106 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aji = Ap[TPUP(N, j, i)]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPUP(N, i, i)]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ *************** *** 114,125 **** INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aji = Ap[TPLO(N, j, i)]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPLO(N, i, i)]; } else { ! X[ix] = tmp; } ix -= incX; --- 114,125 ---- INDEX jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aji = Ap[TPLO(N, j, i)]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / Ap[TPLO(N, i, i)]; } else { ! X[ix] = tmp; } ix -= incX; diff -x.info* -rc2P gsl-1.3/cblas/source_trmm_c.h gsl-1.4/cblas/source_trmm_c.h *** gsl-1.3/cblas/source_trmm_c.h Fri Apr 27 19:48:40 2001 --- gsl-1.4/cblas/source_trmm_c.h Fri Jul 25 15:18:17 2003 *************** *** 37,43 **** n1 = N; n2 = M; ! side = (Side == CblasLeft) ? CblasRight : CblasLeft; /* exchanged */ ! uplo = (Uplo == CblasUpper) ? CblasLower : CblasUpper; /* exchanged */ ! trans = (TransA == CblasNoTrans) ? CblasNoTrans : CblasTrans; /* same */ } --- 37,43 ---- n1 = N; n2 = M; ! side = (Side == CblasLeft) ? CblasRight : CblasLeft; /* exchanged */ ! uplo = (Uplo == CblasUpper) ? CblasLower : CblasUpper; /* exchanged */ ! trans = (TransA == CblasNoTrans) ? CblasNoTrans : CblasTrans; /* same */ } *************** *** 48,77 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag = Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 48,77 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag = Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 83,112 **** for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aki_real * Bkj_real - Aki_imag * Bkj_imag; ! temp_imag += Aki_real * Bkj_imag + Aki_imag * Bkj_real; ! } ! ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag += Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 83,112 ---- for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aki_real * Bkj_real - Aki_imag * Bkj_imag; ! temp_imag += Aki_real * Bkj_imag + Aki_imag * Bkj_real; ! } ! ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag += Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 119,148 **** for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag += Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 119,148 ---- for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aik_real * Bkj_real - Aik_imag * Bkj_imag; ! temp_imag += Aik_real * Bkj_imag + Aik_imag * Bkj_real; ! } ! ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag += Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 156,185 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag = Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = i + 1; k < n1; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aki_real * Bkj_real - Aki_imag * Bkj_imag; ! temp_imag += Aki_real * Bkj_imag + Aki_imag * Bkj_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 156,185 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, i * lda + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, i * lda + i); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Aii_real * Bij_real - Aii_imag * Bij_imag; ! temp_imag = Aii_real * Bij_imag + Aii_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = i + 1; k < n1; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! const BASE Bkj_real = REAL(B, k * ldb + j); ! const BASE Bkj_imag = IMAG(B, k * ldb + j); ! temp_real += Aki_real * Bkj_real - Aki_imag * Bkj_imag; ! temp_imag += Aki_real * Bkj_imag + Aki_imag * Bkj_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 191,220 **** for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Akj_real * Bik_real - Akj_imag * Bik_imag; ! temp_imag += Akj_real * Bik_imag + Akj_imag * Bik_real; ! } ! ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag += Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 191,220 ---- for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Akj_real * Bik_real - Akj_imag * Bik_imag; ! temp_imag += Akj_real * Bik_imag + Akj_imag * Bik_real; ! } ! ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag += Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 226,255 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag = Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Ajk_real * Bik_real - Ajk_imag * Bik_imag; ! temp_imag += Ajk_real * Bik_imag + Ajk_imag * Bik_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 226,255 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag = Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Ajk_real * Bik_real - Ajk_imag * Bik_imag; ! temp_imag += Ajk_real * Bik_imag + Ajk_imag * Bik_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 261,290 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag = Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = j + 1; k < n2; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Akj_real * Bik_real - Akj_imag * Bik_imag; ! temp_imag += Akj_real * Bik_imag + Akj_imag * Bik_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 261,290 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real = Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag = Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real = REAL(B, i * ldb + j); ! temp_imag = IMAG(B, i * ldb + j); ! } ! ! for (k = j + 1; k < n2; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Akj_real * Bik_real - Akj_imag * Bik_imag; ! temp_imag += Akj_real * Bik_imag + Akj_imag * Bik_real; ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } *************** *** 296,325 **** for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Ajk_real * Bik_real - Ajk_imag * Bik_imag; ! temp_imag += Ajk_real * Bik_imag + Ajk_imag * Bik_real; ! } ! ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag += Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } --- 296,325 ---- for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp_real = 0.0; ! BASE temp_imag = 0.0; ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! const BASE Bik_real = REAL(B, i * ldb + k); ! const BASE Bik_imag = IMAG(B, i * ldb + k); ! temp_real += Ajk_real * Bik_real - Ajk_imag * Bik_imag; ! temp_imag += Ajk_real * Bik_imag + Ajk_imag * Bik_real; ! } ! ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, j * lda + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, j * lda + j); ! const BASE Bij_real = REAL(B, i * ldb + j); ! const BASE Bij_imag = IMAG(B, i * ldb + j); ! temp_real += Ajj_real * Bij_real - Ajj_imag * Bij_imag; ! temp_imag += Ajj_real * Bij_imag + Ajj_imag * Bij_real; ! } else { ! temp_real += REAL(B, i * ldb + j); ! temp_imag += IMAG(B, i * ldb + j); ! } ! REAL(B, ldb * i + j) = alpha_real * temp_real - alpha_imag * temp_imag; ! IMAG(B, ldb * i + j) = alpha_real * temp_imag + alpha_imag * temp_real; } } diff -x.info* -rc2P gsl-1.3/cblas/source_trmm_r.h gsl-1.4/cblas/source_trmm_r.h *** gsl-1.3/cblas/source_trmm_r.h Wed May 2 13:36:58 2001 --- gsl-1.4/cblas/source_trmm_r.h Fri Jul 25 15:18:17 2003 *************** *** 44,60 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! ! for (k = i + 1; k < n1; k++) { ! temp += A[lda * i + k] * B[k * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 44,60 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! ! for (k = i + 1; k < n1; k++) { ! temp += A[lda * i + k] * B[k * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 66,82 **** for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < i; k++) { ! temp += A[lda * k + i] * B[k * ldb + j]; ! } ! ! if (nonunit) { ! temp += A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 66,82 ---- for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < i; k++) { ! temp += A[lda * k + i] * B[k * ldb + j]; ! } ! ! if (nonunit) { ! temp += A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 89,105 **** for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < i; k++) { ! temp += A[lda * i + k] * B[k * ldb + j]; ! } ! ! if (nonunit) { ! temp += A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 89,105 ---- for (i = n1; i > 0 && i--;) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! for (k = 0; k < i; k++) { ! temp += A[lda * i + k] * B[k * ldb + j]; ! } ! ! if (nonunit) { ! temp += A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 113,129 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! ! for (k = i + 1; k < n1; k++) { ! temp += A[lda * k + i] * B[k * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 113,129 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[i * lda + i] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! ! for (k = i + 1; k < n1; k++) { ! temp += A[lda * k + i] * B[k * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 135,151 **** for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp = 0.0; ! for (k = 0; k < j; k++) { ! temp += A[lda * k + j] * B[i * ldb + k]; ! } ! ! if (nonunit) { ! temp += A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 135,151 ---- for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp = 0.0; ! for (k = 0; k < j; k++) { ! temp += A[lda * k + j] * B[i * ldb + k]; ! } ! ! if (nonunit) { ! temp += A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 157,173 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! ! for (k = j + 1; k < n2; k++) { ! temp += A[lda * j + k] * B[i * ldb + k]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 157,173 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! ! for (k = j + 1; k < n2; k++) { ! temp += A[lda * j + k] * B[i * ldb + k]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 179,196 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! for (k = j + 1; k < n2; k++) { ! temp += A[lda * k + j] * B[i * ldb + k]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 179,196 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! BASE temp = 0.0; ! if (nonunit) { ! temp = A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp = B[i * ldb + j]; ! } ! for (k = j + 1; k < n2; k++) { ! temp += A[lda * k + j] * B[i * ldb + k]; ! } ! B[ldb * i + j] = alpha * temp; } } *************** *** 202,218 **** for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp = 0.0; ! for (k = 0; k < j; k++) { ! temp += A[lda * j + k] * B[i * ldb + k]; ! } ! ! if (nonunit) { ! temp += A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } --- 202,218 ---- for (i = 0; i < n1; i++) { for (j = n2; j > 0 && j--;) { ! BASE temp = 0.0; ! for (k = 0; k < j; k++) { ! temp += A[lda * j + k] * B[i * ldb + k]; ! } ! ! if (nonunit) { ! temp += A[j * lda + j] * B[i * ldb + j]; ! } else { ! temp += B[i * ldb + j]; ! } ! B[ldb * i + j] = alpha * temp; } } diff -x.info* -rc2P gsl-1.3/cblas/source_trmv_c.h gsl-1.4/cblas/source_trmv_c.h *** gsl-1.3/cblas/source_trmv_c.h Fri Apr 27 19:49:29 2001 --- gsl-1.4/cblas/source_trmv_c.h Fri Jul 25 15:18:17 2003 *************** *** 36,65 **** INDEX jx = OFFSET(N, incX) + incX * j_min; for (j = j_min; j < N; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + j); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; --- 36,65 ---- INDEX jx = OFFSET(N, incX) + incX * j_min; for (j = j_min; j < N; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + j); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; *************** *** 71,100 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + j); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ --- 71,100 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * i + j); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + j); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ *************** *** 106,130 **** INDEX jx = OFFSET(N, incX); for (j = 0; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + i); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; --- 106,130 ---- INDEX jx = OFFSET(N, incX); for (j = 0; j < j_max; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + i); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix -= incX; *************** *** 132,136 **** } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 132,136 ---- } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 140,164 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < N; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + i); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; --- 140,164 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < N; j++) { ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! const BASE A_real = CONST_REAL(A, lda * j + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * j + i); ! temp_r += A_real * x_real - A_imag * x_imag; ! temp_i += A_real * x_imag + A_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE x_real = REAL(X, ix); ! const BASE x_imag = IMAG(X, ix); ! const BASE A_real = CONST_REAL(A, lda * i + i); ! const BASE A_imag = conj * CONST_IMAG(A, lda * i + i); ! REAL(X, ix) = temp_r + (A_real * x_real - A_imag * x_imag); ! IMAG(X, ix) = temp_i + (A_real * x_imag + A_imag * x_real); } else { ! REAL(X, ix) += temp_r; ! IMAG(X, ix) += temp_i; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_trmv_r.h gsl-1.4/cblas/source_trmv_r.h *** gsl-1.3/cblas/source_trmv_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_trmv_r.h Fri Jul 25 15:18:17 2003 *************** *** 34,49 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + j]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; for (i = N; i > 0 && i--;) { --- 34,49 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + j]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX) + (N - 1) * incX; for (i = N; i > 0 && i--;) { *************** *** 53,68 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + j]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ INDEX ix = OFFSET(N, incX) + (N - 1) * incX; --- 53,68 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * i + j]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := A'*x */ INDEX ix = OFFSET(N, incX) + (N - 1) * incX; *************** *** 73,88 **** INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + i]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { --- 73,88 ---- INDEX jx = OFFSET(N, incX) + j_min * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + i]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { INDEX ix = OFFSET(N, incX); for (i = 0; i < N; i++) { *************** *** 92,102 **** INDEX jx = OFFSET(N, incX) + (i + 1) * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + i]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix += incX; --- 92,102 ---- INDEX jx = OFFSET(N, incX) + (i + 1) * incX; for (j = j_min; j < j_max; j++) { ! temp += X[jx] * A[lda * j + i]; ! jx += incX; } if (nonunit) { ! X[ix] = temp + X[ix] * A[lda * i + i]; } else { ! X[ix] += temp; } ix += incX; diff -x.info* -rc2P gsl-1.3/cblas/source_trsm_c.h gsl-1.4/cblas/source_trsm_c.h *** gsl-1.3/cblas/source_trsm_c.h Wed May 2 13:14:34 2001 --- gsl-1.4/cblas/source_trsm_c.h Fri Jul 25 15:18:17 2003 *************** *** 38,44 **** n1 = N; n2 = M; ! side = (Side == CblasLeft) ? CblasRight : CblasLeft; /* exchanged */ ! uplo = (Uplo == CblasUpper) ? CblasLower : CblasUpper; /* exchanged */ ! trans = (TransA == CblasNoTrans) ? CblasNoTrans : CblasTrans; /* same */ } --- 38,44 ---- n1 = N; n2 = M; ! side = (Side == CblasLeft) ? CblasRight : CblasLeft; /* exchanged */ ! uplo = (Uplo == CblasUpper) ? CblasLower : CblasUpper; /* exchanged */ ! trans = (TransA == CblasNoTrans) ? CblasNoTrans : CblasTrans; /* same */ } *************** *** 49,58 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 49,58 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 60,86 **** for (i = n1; i > 0 && i--;) { if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = 0; k < i; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aki_real * Bij_real - Aki_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aki_real * Bij_imag + Aki_imag * Bij_real; ! } } } --- 60,86 ---- for (i = n1; i > 0 && i--;) { if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = 0; k < i; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aki_real * Bij_real - Aki_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aki_real * Bij_imag + Aki_imag * Bij_real; ! } } } *************** *** 92,101 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 92,101 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 104,130 **** if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aik_real * Bij_real - Aik_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aik_real * Bij_imag + Aik_imag * Bij_real; ! } } } --- 104,130 ---- if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aik_real * Bij_real - Aik_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aik_real * Bij_imag + Aik_imag * Bij_real; ! } } } *************** *** 136,145 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 136,145 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 148,174 **** if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aki_real * Bij_real - Aki_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aki_real * Bij_imag + Aki_imag * Bij_real; ! } } } --- 148,174 ---- if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aki_real = CONST_REAL(A, k * lda + i); ! const BASE Aki_imag = conj * CONST_IMAG(A, k * lda + i); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aki_real * Bij_real - Aki_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aki_real * Bij_imag + Aki_imag * Bij_real; ! } } } *************** *** 181,190 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 181,190 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 192,218 **** for (i = n1; i > 0 && i--;) { if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aik_real * Bij_real - Aik_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aik_real * Bij_imag + Aik_imag * Bij_real; ! } } } --- 192,218 ---- for (i = n1; i > 0 && i--;) { if (nonunit) { ! const BASE Aii_real = CONST_REAL(A, lda * i + i); ! const BASE Aii_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(Aii_real, Aii_imag); ! const BASE a_real = Aii_real / s; ! const BASE a_imag = Aii_imag / s; ! ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } } for (k = 0; k < i; k++) { ! const BASE Aik_real = CONST_REAL(A, i * lda + k); ! const BASE Aik_imag = conj * CONST_IMAG(A, i * lda + k); ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * k + j) -= Aik_real * Bij_real - Aik_imag * Bij_imag; ! IMAG(B, ldb * k + j) -= Aik_real * Bij_imag + Aik_imag * Bij_real; ! } } } *************** *** 224,233 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 224,233 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 235,260 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! REAL(B, ldb * i + k) -= Ajk_real * Bij_real - Ajk_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Ajk_real * Bij_imag + Ajk_imag * Bij_real; ! } ! } } } --- 235,260 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! for (k = j + 1; k < n2; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! REAL(B, ldb * i + k) -= Ajk_real * Bij_real - Ajk_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Ajk_real * Bij_imag + Ajk_imag * Bij_real; ! } ! } } } *************** *** 266,275 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 266,275 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 278,303 **** for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! for (k = 0; k < j; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! REAL(B, ldb * i + k) -= Akj_real * Bij_real - Akj_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Akj_real * Bij_imag + Akj_imag * Bij_real; ! } ! } } } --- 278,303 ---- for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! for (k = 0; k < j; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! REAL(B, ldb * i + k) -= Akj_real * Bij_real - Akj_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Akj_real * Bij_imag + Akj_imag * Bij_real; ! } ! } } } *************** *** 310,319 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 310,319 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 322,347 **** for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! REAL(B, ldb * i + k) -= Ajk_real * Bij_real - Ajk_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Ajk_real * Bij_imag + Ajk_imag * Bij_real; ! } ! } } } --- 322,347 ---- for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! for (k = 0; k < j; k++) { ! const BASE Ajk_real = CONST_REAL(A, j * lda + k); ! const BASE Ajk_imag = conj * CONST_IMAG(A, j * lda + k); ! REAL(B, ldb * i + k) -= Ajk_real * Bij_real - Ajk_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Ajk_real * Bij_imag + Ajk_imag * Bij_real; ! } ! } } } *************** *** 354,363 **** if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } --- 354,363 ---- if (!(alpha_real == 1.0 && alpha_imag == 0.0)) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = alpha_real * Bij_real - alpha_imag * Bij_imag; ! IMAG(B, ldb * i + j) = alpha_real * Bij_imag + alpha_imag * Bij_real; ! } } } *************** *** 365,391 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! ! for (k = j + 1; k < n2; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! REAL(B, ldb * i + k) -= Akj_real * Bij_real - Akj_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Akj_real * Bij_imag + Akj_imag * Bij_real; ! } ! } } } --- 365,391 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! const BASE Ajj_real = CONST_REAL(A, lda * j + j); ! const BASE Ajj_imag = conj * CONST_IMAG(A, lda * j + j); ! const BASE s = xhypot(Ajj_real, Ajj_imag); ! const BASE a_real = Ajj_real / s; ! const BASE a_imag = Ajj_imag / s; ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! REAL(B, ldb * i + j) = (Bij_real * a_real + Bij_imag * a_imag) / s; ! IMAG(B, ldb * i + j) = (Bij_imag * a_real - Bij_real * a_imag) / s; ! } ! ! { ! const BASE Bij_real = REAL(B, ldb * i + j); ! const BASE Bij_imag = IMAG(B, ldb * i + j); ! ! for (k = j + 1; k < n2; k++) { ! const BASE Akj_real = CONST_REAL(A, k * lda + j); ! const BASE Akj_imag = conj * CONST_IMAG(A, k * lda + j); ! REAL(B, ldb * i + k) -= Akj_real * Bij_real - Akj_imag * Bij_imag; ! IMAG(B, ldb * i + k) -= Akj_real * Bij_imag + Akj_imag * Bij_real; ! } ! } } } diff -x.info* -rc2P gsl-1.3/cblas/source_trsm_r.h gsl-1.4/cblas/source_trsm_r.h *** gsl-1.3/cblas/source_trsm_r.h Fri Apr 27 18:32:24 2001 --- gsl-1.4/cblas/source_trsm_r.h Fri Jul 25 15:18:17 2003 *************** *** 44,50 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 44,50 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 52,66 **** for (i = n1; i > 0 && i--;) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = 0; k < i; k++) { ! const BASE Aki = A[k * lda + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aki * B[ldb * i + j]; ! } } } --- 52,66 ---- for (i = n1; i > 0 && i--;) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = 0; k < i; k++) { ! const BASE Aki = A[k * lda + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aki * B[ldb * i + j]; ! } } } *************** *** 72,78 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 72,78 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 80,94 **** for (i = 0; i < n1; i++) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aik = A[i * lda + k]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aik * B[ldb * i + j]; ! } } } --- 80,94 ---- for (i = 0; i < n1; i++) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aik = A[i * lda + k]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aik * B[ldb * i + j]; ! } } } *************** *** 101,107 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 101,107 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 109,123 **** for (i = 0; i < n1; i++) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aki = A[k * lda + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aki * B[ldb * i + j]; ! } } } --- 109,123 ---- for (i = 0; i < n1; i++) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = i + 1; k < n1; k++) { ! const BASE Aki = A[k * lda + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aki * B[ldb * i + j]; ! } } } *************** *** 130,136 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 130,136 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 138,152 **** for (i = n1; i > 0 && i--;) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = 0; k < i; k++) { ! const BASE Aik = A[i * lda + k]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aik * B[ldb * i + j]; ! } } } --- 138,152 ---- for (i = n1; i > 0 && i--;) { if (nonunit) { ! BASE Aii = A[lda * i + i]; ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] /= Aii; ! } } for (k = 0; k < i; k++) { ! const BASE Aik = A[i * lda + k]; ! for (j = 0; j < n2; j++) { ! B[ldb * k + j] -= Aik * B[ldb * i + j]; ! } } } *************** *** 158,164 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 158,164 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 166,180 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = j + 1; k < n2; k++) { ! B[ldb * i + k] -= A[j * lda + k] * Bij; ! } ! } } } --- 166,180 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = j + 1; k < n2; k++) { ! B[ldb * i + k] -= A[j * lda + k] * Bij; ! } ! } } } *************** *** 186,192 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 186,192 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 195,209 **** for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = 0; k < j; k++) { ! B[ldb * i + k] -= A[k * lda + j] * Bij; ! } ! } } } --- 195,209 ---- for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = 0; k < j; k++) { ! B[ldb * i + k] -= A[k * lda + j] * Bij; ! } ! } } } *************** *** 216,222 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 216,222 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 225,239 **** for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = 0; k < j; k++) { ! B[ldb * i + k] -= A[j * lda + k] * Bij; ! } ! } } } --- 225,239 ---- for (j = n2; j > 0 && j--;) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = 0; k < j; k++) { ! B[ldb * i + k] -= A[j * lda + k] * Bij; ! } ! } } } *************** *** 246,252 **** if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } --- 246,252 ---- if (alpha != 1.0) { for (i = 0; i < n1; i++) { ! for (j = 0; j < n2; j++) { ! B[ldb * i + j] *= alpha; ! } } } *************** *** 254,268 **** for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = j + 1; k < n2; k++) { ! B[ldb * i + k] -= A[k * lda + j] * Bij; ! } ! } } } --- 254,268 ---- for (i = 0; i < n1; i++) { for (j = 0; j < n2; j++) { ! if (nonunit) { ! BASE Ajj = A[lda * j + j]; ! B[ldb * i + j] /= Ajj; ! } ! ! { ! BASE Bij = B[ldb * i + j]; ! for (k = j + 1; k < n2; k++) { ! B[ldb * i + k] -= A[k * lda + j] * Bij; ! } ! } } } diff -x.info* -rc2P gsl-1.3/cblas/source_trsv_c.h gsl-1.4/cblas/source_trsv_c.h *** gsl-1.3/cblas/source_trsv_c.h Wed May 2 13:14:19 2001 --- gsl-1.4/cblas/source_trsv_c.h Fri Jul 25 15:18:17 2003 *************** *** 54,77 **** jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + j); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; --- 54,77 ---- jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + j); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; *************** *** 79,83 **** } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ --- 79,83 ---- } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ *************** *** 103,130 **** jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + j); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ --- 103,130 ---- jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * i + j); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * i + j); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ *************** *** 152,179 **** jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * j + i); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * j + i); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ --- 152,179 ---- jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * j + i); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * j + i); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ *************** *** 200,223 **** jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * j + i); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * j + i); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; --- 200,223 ---- jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij_real = CONST_REAL(A, lda * j + i); ! const BASE Aij_imag = conj * CONST_IMAG(A, lda * j + i); ! const BASE x_real = REAL(X, jx); ! const BASE x_imag = IMAG(X, jx); ! tmp_real -= Aij_real * x_real - Aij_imag * x_imag; ! tmp_imag -= Aij_real * x_imag + Aij_imag * x_real; ! jx += incX; } if (nonunit) { ! const BASE a_real = CONST_REAL(A, lda * i + i); ! const BASE a_imag = conj * CONST_IMAG(A, lda * i + i); ! const BASE s = xhypot(a_real, a_imag); ! const BASE b_real = a_real / s; ! const BASE b_imag = a_imag / s; ! REAL(X, ix) = (tmp_real * b_real + tmp_imag * b_imag) / s; ! IMAG(X, ix) = (tmp_imag * b_real - tmp_real * b_imag) / s; } else { ! REAL(X, ix) = tmp_real; ! IMAG(X, ix) = tmp_imag; } ix -= incX; diff -x.info* -rc2P gsl-1.3/cblas/source_trsv_r.h gsl-1.4/cblas/source_trsv_r.h *** gsl-1.3/cblas/source_trsv_r.h Fri Apr 27 18:32:22 2001 --- gsl-1.4/cblas/source_trsv_r.h Fri Jul 25 15:18:17 2003 *************** *** 41,57 **** jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij = A[lda * i + j]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ --- 41,57 ---- jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aij = A[lda * i + j]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix -= incX; } } else if ((order == CblasRowMajor && Trans == CblasNoTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasTrans && Uplo == CblasUpper)) { /* forward substitution */ *************** *** 65,81 **** jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij = A[lda * i + j]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ --- 65,81 ---- jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aij = A[lda * i + j]; ! tmp -= Aij * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasUpper) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasLower)) { /* form x := inv( A' )*x */ *************** *** 91,107 **** jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aji = A[lda * j + i]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ --- 91,107 ---- jx = OFFSET(N, incX); for (j = 0; j < i; j++) { ! const BASE Aji = A[lda * j + i]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix += incX; } } else if ((order == CblasRowMajor && Trans == CblasTrans && Uplo == CblasLower) ! || (order == CblasColMajor && Trans == CblasNoTrans && Uplo == CblasUpper)) { /* backsubstitution */ *************** *** 115,126 **** jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aji = A[lda * j + i]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix -= incX; --- 115,126 ---- jx = ix + incX; for (j = i + 1; j < N; j++) { ! const BASE Aji = A[lda * j + i]; ! tmp -= Aji * X[jx]; ! jx += incX; } if (nonunit) { ! X[ix] = tmp / A[lda * i + i]; } else { ! X[ix] = tmp; } ix -= incX; diff -x.info* -rc2P gsl-1.3/cblas/srot.c gsl-1.4/cblas/srot.c *** gsl-1.3/cblas/srot.c Mon Nov 19 21:35:21 2001 --- gsl-1.4/cblas/srot.c Fri Jul 25 15:18:08 2003 *************** *** 5,9 **** void cblas_srot (const int N, float *X, const int incX, float *Y, const int incY, ! const float c, const float s) { #define BASE float --- 5,9 ---- void cblas_srot (const int N, float *X, const int incX, float *Y, const int incY, ! const float c, const float s) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/srotm.c gsl-1.4/cblas/srotm.c *** gsl-1.3/cblas/srotm.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/srotm.c Fri Jul 25 15:18:08 2003 *************** *** 5,9 **** void cblas_srotm (const int N, float *X, const int incX, float *Y, const int incY, ! const float *P) { #define BASE float --- 5,9 ---- void cblas_srotm (const int N, float *X, const int incX, float *Y, const int incY, ! const float *P) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ssbmv.c gsl-1.4/cblas/ssbmv.c *** gsl-1.3/cblas/ssbmv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssbmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_ssbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const int K, const float alpha, const float *A, ! const int lda, const float *X, const int incX, const float beta, ! float *Y, const int incY) { #define BASE float --- 5,11 ---- void cblas_ssbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const int K, const float alpha, const float *A, ! const int lda, const float *X, const int incX, const float beta, ! float *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sspmv.c gsl-1.4/cblas/sspmv.c *** gsl-1.3/cblas/sspmv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/sspmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_sspmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *Ap, const float *X, ! const int incX, const float beta, float *Y, const int incY) { #define BASE float --- 5,10 ---- void cblas_sspmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *Ap, const float *X, ! const int incX, const float beta, float *Y, const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sspr.c gsl-1.4/cblas/sspr.c *** gsl-1.3/cblas/sspr.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/sspr.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_sspr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! float *Ap) { #define BASE float --- 5,10 ---- void cblas_sspr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! float *Ap) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/sspr2.c gsl-1.4/cblas/sspr2.c *** gsl-1.3/cblas/sspr2.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/sspr2.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_sspr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! const float *Y, const int incY, float *Ap) { #define BASE double --- 5,10 ---- void cblas_sspr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! const float *Y, const int incY, float *Ap) { #define BASE double diff -x.info* -rc2P gsl-1.3/cblas/ssymm.c gsl-1.4/cblas/ssymm.c *** gsl-1.3/cblas/ssymm.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssymm.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_ssymm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const float alpha, const float *A, const int lda, const float *B, ! const int ldb, const float beta, float *C, const int ldc) { #define BASE float --- 5,11 ---- void cblas_ssymm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const int M, const int N, ! const float alpha, const float *A, const int lda, const float *B, ! const int ldb, const float beta, float *C, const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ssymv.c gsl-1.4/cblas/ssymv.c *** gsl-1.3/cblas/ssymv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssymv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_ssymv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *A, const int lda, ! const float *X, const int incX, const float beta, float *Y, ! const int incY) { #define BASE float --- 5,11 ---- void cblas_ssymv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *A, const int lda, ! const float *X, const int incX, const float beta, float *Y, ! const int incY) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ssyr.c gsl-1.4/cblas/ssyr.c *** gsl-1.3/cblas/ssyr.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssyr.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_ssyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! float *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_ssyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! float *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ssyr2.c gsl-1.4/cblas/ssyr2.c *** gsl-1.3/cblas/ssyr2.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssyr2.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_ssyr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! const float *Y, const int incY, float *A, const int lda) { #define BASE float --- 5,10 ---- void cblas_ssyr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const int N, const float alpha, const float *X, const int incX, ! const float *Y, const int incY, float *A, const int lda) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ssyr2k.c gsl-1.4/cblas/ssyr2k.c *** gsl-1.3/cblas/ssyr2k.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssyr2k.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_ssyr2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const float alpha, const float *A, const int lda, ! const float *B, const int ldb, const float beta, float *C, ! const int ldc) { #define BASE float --- 5,12 ---- void cblas_ssyr2k (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const float alpha, const float *A, const int lda, ! const float *B, const int ldb, const float beta, float *C, ! const int ldc) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/ssyrk.c gsl-1.4/cblas/ssyrk.c *** gsl-1.3/cblas/ssyrk.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/ssyrk.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_ssyrk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const float alpha, const float *A, const int lda, const float beta, float *C, const int ldc) { --- 5,10 ---- void cblas_ssyrk (const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE Trans, const int N, const int K, ! const float alpha, const float *A, const int lda, const float beta, float *C, const int ldc) { diff -x.info* -rc2P gsl-1.3/cblas/stbmv.c gsl-1.4/cblas/stbmv.c *** gsl-1.3/cblas/stbmv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/stbmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_stbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const float *A, const int lda, ! float *X, const int incX) { #define BASE float --- 5,11 ---- void cblas_stbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const float *A, const int lda, ! float *X, const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/stbsv.c gsl-1.4/cblas/stbsv.c *** gsl-1.3/cblas/stbsv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/stbsv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_stbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const float *A, const int lda, ! float *X, const int incX) { #define BASE float --- 5,11 ---- void cblas_stbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const int K, const float *A, const int lda, ! float *X, const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/stpmv.c gsl-1.4/cblas/stpmv.c *** gsl-1.3/cblas/stpmv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/stpmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_stpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *Ap, float *X, const int incX) { #define BASE float --- 5,10 ---- void cblas_stpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *Ap, float *X, const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/stpsv.c gsl-1.4/cblas/stpsv.c *** gsl-1.3/cblas/stpsv.c Mon Nov 19 21:35:20 2001 --- gsl-1.4/cblas/stpsv.c Fri Jul 25 15:18:08 2003 *************** *** 5,10 **** void cblas_stpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *Ap, float *X, const int incX) { #define BASE float --- 5,10 ---- void cblas_stpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *Ap, float *X, const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/strmm.c gsl-1.4/cblas/strmm.c *** gsl-1.3/cblas/strmm.c Mon Nov 19 21:35:19 2001 --- gsl-1.4/cblas/strmm.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_strmm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const float alpha, const float *A, const int lda, float *B, ! const int ldb) { #define BASE float --- 5,12 ---- void cblas_strmm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const float alpha, const float *A, const int lda, float *B, ! const int ldb) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/strmv.c gsl-1.4/cblas/strmv.c *** gsl-1.3/cblas/strmv.c Mon Nov 19 21:35:19 2001 --- gsl-1.4/cblas/strmv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_strmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *A, const int lda, float *X, ! const int incX) { #define BASE float --- 5,11 ---- void cblas_strmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *A, const int lda, float *X, ! const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/strsm.c gsl-1.4/cblas/strsm.c *** gsl-1.3/cblas/strsm.c Mon Nov 19 21:35:19 2001 --- gsl-1.4/cblas/strsm.c Fri Jul 25 15:18:08 2003 *************** *** 5,12 **** void cblas_strsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const float alpha, const float *A, const int lda, float *B, ! const int ldb) { #define BASE float --- 5,12 ---- void cblas_strsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, ! const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, ! const enum CBLAS_DIAG Diag, const int M, const int N, ! const float alpha, const float *A, const int lda, float *B, ! const int ldb) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/strsv.c gsl-1.4/cblas/strsv.c *** gsl-1.3/cblas/strsv.c Mon Nov 19 21:35:19 2001 --- gsl-1.4/cblas/strsv.c Fri Jul 25 15:18:08 2003 *************** *** 5,11 **** void cblas_strsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *A, const int lda, float *X, ! const int incX) { #define BASE float --- 5,11 ---- void cblas_strsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ! const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, ! const int N, const float *A, const int lda, float *X, ! const int incX) { #define BASE float diff -x.info* -rc2P gsl-1.3/cblas/test_her2k.c gsl-1.4/cblas/test_her2k.c *** gsl-1.3/cblas/test_her2k.c Mon Nov 19 21:35:18 2001 --- gsl-1.4/cblas/test_her2k.c Fri Jul 25 15:18:08 2003 *************** *** 15,33 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta = 0.1f; ! float A[] = { 0.531f, 0.721f, -0.848f, 0.826f }; int lda = 2; ! float B[] = { -0.711f, -0.2f, -0.92f, -0.676f }; int ldb = 2; ! float C[] = { -0.447f, 0.701f }; int ldc = 1; ! float C_expected[] = { 0.30322f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1654) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1654) imag"); }; }; --- 15,33 ---- int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = -0.3f; ! float A[] = { 0.178f, 0.545f, -0.491f, 0.979f }; int lda = 2; ! float B[] = { -0.665f, -0.531f, -0.4f, 0.227f }; int ldb = 2; ! float C[] = { 0.115f, -0.193f }; int ldc = 1; ! float C_expected[] = { -0.056236f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1646) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1646) imag"); }; }; *************** *** 41,59 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta = 0.1f; ! float A[] = { 0.68f, 0.079f, 0.837f, -0.814f }; int lda = 2; ! float B[] = { -0.986f, 0.024f, 0.584f, -0.248f }; int ldb = 2; ! float C[] = { 0.477f, -0.551f }; int ldc = 1; ! float C_expected[] = { 0.120103f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1655) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1655) imag"); }; }; --- 41,59 ---- int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = -0.3f; ! float A[] = { -0.808f, 0.447f, 0.145f, -0.226f }; int lda = 2; ! float B[] = { -0.413f, 0.904f, -0.585f, 0.717f }; int ldb = 2; ! float C[] = { -0.725f, -0.244f }; int ldc = 1; ! float C_expected[] = { -0.76435f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1647) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1647) imag"); }; }; *************** *** 67,85 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta = 0.1f; ! float A[] = { 0.354f, -0.63f, -0.85f, 0.426f }; int lda = 1; ! float B[] = { 0.787f, -0.228f, -0.568f, 0.83f }; int ldb = 1; ! float C[] = { 0.428f, -0.388f }; int ldc = 1; ! float C_expected[] = { 0.0331132f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1656) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1656) imag"); }; }; --- 67,85 ---- int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = -0.3f; ! float A[] = { 0.337f, -0.737f, -0.993f, 0.69f }; int lda = 1; ! float B[] = { -0.39f, -0.836f, -0.32f, 0.368f }; int ldb = 1; ! float C[] = { 0.844f, -0.763f }; int ldc = 1; ! float C_expected[] = { -2.36596f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1648) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1648) imag"); }; }; *************** *** 93,111 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta = 0.1f; ! float A[] = { -0.49f, 0.224f, -0.606f, 0.46f }; int lda = 1; ! float B[] = { -0.191f, -0.815f, 0.464f, 0.066f }; int ldb = 1; ! float C[] = { 0.302f, 0.023f }; int ldc = 1; ! float C_expected[] = { 0.0679396f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1657) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1657) imag"); }; }; --- 93,111 ---- int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = -0.3f; ! float A[] = { 0.386f, -0.465f, 0.719f, -0.378f }; int lda = 1; ! float B[] = { 0.099f, -0.879f, 0.864f, 0.141f }; int ldb = 1; ! float C[] = { -0.599f, -0.47f }; int ldc = 1; ! float C_expected[] = { -1.85003f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1649) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1649) imag"); }; }; *************** *** 119,137 **** int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = 0.0f; ! float A[] = { 0.943f, 0.075f, 0.15f, -0.141f }; int lda = 1; ! float B[] = { -0.962f, 0.422f, -0.592f, -0.789f }; int ldb = 1; ! float C[] = { 0.728f, 0.601f }; int ldc = 1; ! float C_expected[] = { 1.70613f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1658) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1658) imag"); }; }; --- 119,137 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 1.0f}; ! float beta = -1.0f; ! float A[] = { 0.128f, 0.431f, -0.26f, 0.75f }; int lda = 1; ! float B[] = { 0.276f, 0.058f, 0.904f, -0.116f }; int ldb = 1; ! float C[] = { 0.914f, -0.262f }; int ldc = 1; ! float C_expected[] = { 0.604744f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1650) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1650) imag"); }; }; *************** *** 145,163 **** int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = 0.0f; ! float A[] = { -0.93f, -0.386f, 0.565f, 0.141f }; int lda = 1; ! float B[] = { -0.801f, 0.022f, 0.558f, -0.932f }; int ldb = 1; ! float C[] = { 0.068f, 0.501f }; int ldc = 1; ! float C_expected[] = { -1.84059f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1659) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1659) imag"); }; }; --- 145,163 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 1.0f}; ! float beta = -1.0f; ! float A[] = { 0.72f, 0.783f, -0.737f, 0.375f }; int lda = 1; ! float B[] = { 0.531f, 0.167f, 0.203f, -0.221f }; int ldb = 1; ! float C[] = { 0.618f, 0.392f }; int ldc = 1; ! float C_expected[] = { -0.200438f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1651) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1651) imag"); }; }; *************** *** 171,189 **** int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = 0.0f; ! float A[] = { -0.383f, 0.124f, 0.458f, -0.221f }; int lda = 2; ! float B[] = { -0.107f, 0.199f, 0.18f, 0.122f }; int ldb = 2; ! float C[] = { 0.896f, -0.874f }; int ldc = 1; ! float C_expected[] = { -0.24227f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1660) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1660) imag"); }; }; --- 171,189 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 1.0f}; ! float beta = -1.0f; ! float A[] = { -0.372f, -0.735f, -0.711f, 0.051f }; int lda = 2; ! float B[] = { 0.257f, 0.097f, 0.338f, -0.484f }; int ldb = 2; ! float C[] = { -0.142f, -0.197f }; int ldc = 1; ! float C_expected[] = { -0.817394f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1652) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1652) imag"); }; }; *************** *** 197,215 **** int N = 1; int K = 2; ! float alpha[2] = {-1.0f, 0.0f}; ! float beta = 0.0f; ! float A[] = { 0.131f, 0.692f, 0.533f, -0.672f }; int lda = 2; ! float B[] = { -0.435f, -0.453f, 0.195f, -0.579f }; int ldb = 2; ! float C[] = { -0.547f, 0.736f }; int ldc = 1; ! float C_expected[] = { -0.245124f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1661) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1661) imag"); }; }; --- 197,215 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 1.0f}; ! float beta = -1.0f; ! float A[] = { 0.1f, -0.878f, 0.28f, -0.381f }; int lda = 2; ! float B[] = { -0.208f, 0.309f, -0.276f, 0.123f }; int ldb = 2; ! float C[] = { 0.483f, -0.541f }; int ldc = 1; ! float C_expected[] = { -0.03812f, 0.0f }; cblas_cher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cher2k(case 1653) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cher2k(case 1653) imag"); }; }; *************** *** 223,241 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; ! double beta = 0.1; ! double A[] = { 0.972, -0.353, 0.712, -0.53 }; int lda = 2; ! double B[] = { 0.787, -0.379, 0.889, 0.901 }; int ldb = 2; ! double C[] = { 0.002, 0.266 }; int ldc = 1; ! double C_expected[] = { -0.4278924, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1662) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1662) imag"); }; }; --- 223,241 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta = 1; ! double A[] = { 0.515, -0.034, 0.067, 0.66 }; int lda = 2; ! double B[] = { 0.408, -0.85, -0.945, -0.799 }; int ldb = 2; ! double C[] = { -0.918, -0.985 }; int ldc = 1; ! double C_expected[] = { -1.62127, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1654) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1654) imag"); }; }; *************** *** 249,267 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; ! double beta = 0.1; ! double A[] = { -0.36, 0.192, 0.539, 0.198 }; int lda = 2; ! double B[] = { -0.673, 0.781, 0.792, 0.335 }; int ldb = 2; ! double C[] = { 0.719, -0.339 }; int ldc = 1; ! double C_expected[] = { -0.485009, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1663) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1663) imag"); }; }; --- 249,267 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta = 1; ! double A[] = { -0.009, 0.495, -0.008, -0.973 }; int lda = 2; ! double B[] = { -0.239, -0.373, -0.032, -0.539 }; int ldb = 2; ! double C[] = { 0.443, -0.245 }; int ldc = 1; ! double C_expected[] = { 1.127438, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1655) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1655) imag"); }; }; *************** *** 275,293 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; ! double beta = 0.1; ! double A[] = { -0.143, 0.456, 0.677, -0.522 }; int lda = 1; ! double B[] = { 0.851, 0.196, 0.586, 0.64 }; int ldb = 1; ! double C[] = { 0.617, 0.118 }; int ldc = 1; ! double C_expected[] = { 0.1081226, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1664) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1664) imag"); }; }; --- 275,293 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta = 1; ! double A[] = { 0.531, 0.721, -0.848, 0.826 }; int lda = 1; ! double B[] = { -0.711, -0.2, -0.92, -0.676 }; int ldb = 1; ! double C[] = { -0.447, 0.701 }; int ldc = 1; ! double C_expected[] = { -1.046914, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1656) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1656) imag"); }; }; *************** *** 301,319 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; ! double beta = 0.1; ! double A[] = { 0.801, 0.91, 0.376, -0.006 }; int lda = 1; ! double B[] = { -0.613, -0.758, -0.966, 0.194 }; int ldb = 1; ! double C[] = { -0.723, -0.765 }; int ldc = 1; ! double C_expected[] = { 0.8583678, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1665) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1665) imag"); }; }; --- 301,319 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta = 1; ! double A[] = { 0.68, 0.079, 0.837, -0.814 }; int lda = 1; ! double B[] = { -0.986, 0.024, 0.584, -0.248 }; int ldb = 1; ! double C[] = { 0.477, -0.551 }; int ldc = 1; ! double C_expected[] = { 0.521192, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1657) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1657) imag"); }; }; *************** *** 327,345 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta = 0.1; ! double A[] = { -0.359, 0.913, 0.738, -0.227 }; int lda = 1; ! double B[] = { 0.787, 0.745, 0.036, -0.606 }; int ldb = 1; ! double C[] = { -0.652, -0.281 }; int ldc = 1; ! double C_expected[] = { -0.1172608, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1666) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1666) imag"); }; }; --- 327,345 ---- int N = 1; int K = 2; ! double alpha[2] = {-1, 0}; double beta = 0.1; ! double A[] = { -0.63, 0.787, 0.426, -0.568 }; int lda = 1; ! double B[] = { -0.228, 0.302, 0.83, 0.023 }; int ldb = 1; ! double C[] = { 0.354, -0.85 }; int ldc = 1; ! double C_expected[] = { -1.40826, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1658) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1658) imag"); }; }; *************** *** 353,371 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta = 0.1; ! double A[] = { -0.933, 0.598, 0.952, 0.25 }; int lda = 1; ! double B[] = { -0.508, -0.461, -0.727, 0.162 }; int ldb = 1; ! double C[] = { 0.215, 0.943 }; int ldc = 1; ! double C_expected[] = { 0.0795166, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1667) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1667) imag"); }; }; --- 353,371 ---- int N = 1; int K = 2; ! double alpha[2] = {-1, 0}; double beta = 0.1; ! double A[] = { 0.224, -0.191, 0.46, 0.464 }; int lda = 1; ! double B[] = { -0.815, 0.634, 0.066, -0.873 }; int ldb = 1; ! double C[] = { -0.49, -0.606 }; int ldc = 1; ! double C_expected[] = { 1.307732, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1659) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1659) imag"); }; }; *************** *** 379,397 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta = 0.1; ! double A[] = { -0.735, 0.372, -0.251, -0.168 }; int lda = 2; ! double B[] = { 0.217, 0.863, -0.179, -0.057 }; int ldb = 2; ! double C[] = { 0.579, -0.305 }; int ldc = 1; ! double C_expected[] = { 0.0744312, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1668) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1668) imag"); }; }; --- 379,397 ---- int N = 1; int K = 2; ! double alpha[2] = {-1, 0}; double beta = 0.1; ! double A[] = { 0.943, 0.075, 0.15, -0.141 }; int lda = 2; ! double B[] = { -0.962, 0.422, -0.592, -0.789 }; int ldb = 2; ! double C[] = { 0.728, 0.601 }; int ldc = 1; ! double C_expected[] = { 1.778934, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1660) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1660) imag"); }; }; *************** *** 405,423 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta = 0.1; ! double A[] = { -0.587, -0.994, -0.625, 0.681 }; int lda = 2; ! double B[] = { -0.577, -0.014, -0.434, 0.204 }; int ldb = 2; ! double C[] = { 0.256, 0.093 }; int ldc = 1; ! double C_expected[] = { -0.3526202, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1669) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1669) imag"); }; }; --- 405,423 ---- int N = 1; int K = 2; ! double alpha[2] = {-1, 0}; double beta = 0.1; ! double A[] = { -0.93, -0.386, 0.565, 0.141 }; int lda = 2; ! double B[] = { -0.801, 0.022, 0.558, -0.932 }; int ldb = 2; ! double C[] = { 0.068, 0.501 }; int ldc = 1; ! double C_expected[] = { -1.833792, 0.0 }; cblas_zher2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zher2k(case 1661) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zher2k(case 1661) imag"); }; }; diff -x.info* -rc2P gsl-1.3/cblas/test_herk.c gsl-1.4/cblas/test_herk.c *** gsl-1.3/cblas/test_herk.c Mon Nov 19 21:35:18 2001 --- gsl-1.4/cblas/test_herk.c Fri Jul 25 15:18:08 2003 *************** *** 15,31 **** int N = 2; int K = 1; ! float alpha = 1.0f; ! float beta = 1.0f; ! float A[] = { 0.934f, 0.664f, 0.426f, 0.263f }; int lda = 1; ! float C[] = { 0.251f, -0.97f, 0.76f, -0.349f, 0.152f, -0.899f, -0.17f, 0.707f }; int ldc = 2; ! float C_expected[] = { 1.56425f, 0.0f, 1.33252f, -0.311778f, 0.152f, -0.899f, 0.080645f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1606) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1606) imag"); }; }; --- 15,31 ---- int N = 2; int K = 1; ! float alpha = 0.0f; ! float beta = 0.1f; ! float A[] = { -0.617f, 0.179f, -0.626f, 0.334f }; int lda = 1; ! float C[] = { 0.346f, -0.903f, 0.022f, -0.839f, -0.715f, 0.049f, -0.338f, 0.149f }; int ldc = 2; ! float C_expected[] = { 0.0346f, 0.0f, 0.0022f, -0.0839f, -0.715f, 0.049f, -0.0338f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1598) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1598) imag"); }; }; *************** *** 39,55 **** int N = 2; int K = 1; ! float alpha = 1.0f; ! float beta = 1.0f; ! float A[] = { 0.16f, 0.464f, -0.623f, 0.776f }; int lda = 2; ! float C[] = { 0.771f, -0.449f, 0.776f, 0.112f, -0.134f, 0.317f, 0.547f, -0.551f }; int ldc = 2; ! float C_expected[] = { 1.0119f, 0.0f, 0.776f, 0.112f, 0.126384f, -0.096232f, 1.5373f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1607) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1607) imag"); }; }; --- 39,55 ---- int N = 2; int K = 1; ! float alpha = 0.0f; ! float beta = 0.1f; ! float A[] = { -0.356f, -0.308f, 0.493f, -0.351f }; int lda = 2; ! float C[] = { -0.898f, -0.905f, 0.002f, -0.219f, 0.881f, 0.879f, 0.275f, -0.351f }; int ldc = 2; ! float C_expected[] = { -0.0898f, 0.0f, 0.002f, -0.219f, 0.0881f, 0.0879f, 0.0275f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1599) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1599) imag"); }; }; *************** *** 65,79 **** float alpha = 0.1f; float beta = 1.0f; ! float A[] = { 0.787f, 0.057f, -0.49f, 0.47f }; int lda = 2; ! float C[] = { -0.758f, 0.912f, 0.992f, -0.356f, 0.584f, 0.806f, 0.965f, 0.674f }; int ldc = 2; ! float C_expected[] = { -0.695738f, 0.0f, 0.956116f, -0.316218f, 0.584f, 0.806f, 1.0111f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1608) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1608) imag"); }; }; --- 65,79 ---- float alpha = 0.1f; float beta = 1.0f; ! float A[] = { -0.103f, -0.951f, -0.601f, -0.041f }; int lda = 2; ! float C[] = { -0.918f, -0.018f, 0.991f, -0.789f, -0.698f, -0.067f, 0.956f, -0.599f }; int ldc = 2; ! float C_expected[] = { -0.826499f, 0.0f, 1.00109f, -0.845733f, -0.698f, -0.067f, 0.992288f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1600) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1600) imag"); }; }; *************** *** 89,103 **** float alpha = 0.1f; float beta = 1.0f; ! float A[] = { 0.961f, -0.384f, 0.165f, 0.395f }; int lda = 1; ! float C[] = { -0.186f, 0.404f, -0.873f, 0.09f, -0.451f, -0.972f, -0.203f, -0.304f }; int ldc = 2; ! float C_expected[] = { -0.0789023f, 0.0f, -0.873f, 0.09f, -0.450312f, -0.927704f, -0.184675f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1609) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1609) imag"); }; }; --- 89,103 ---- float alpha = 0.1f; float beta = 1.0f; ! float A[] = { -0.237f, 0.925f, -0.904f, -0.091f }; int lda = 1; ! float C[] = { -0.572f, 0.915f, 0.398f, 0.222f, 0.016f, 0.288f, -0.078f, -0.507f }; int ldc = 2; ! float C_expected[] = { -0.480821f, 0.0f, 0.398f, 0.222f, 0.0290073f, 0.373777f, 0.0045497f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1601) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1601) imag"); }; }; *************** *** 111,127 **** int N = 2; int K = 1; ! float alpha = 0.0f; ! float beta = -0.3f; ! float A[] = { 0.04f, 0.608f, 0.21f, -0.44f }; int lda = 1; ! float C[] = { 0.285f, -0.943f, 0.581f, -0.56f, 0.112f, 0.529f, 0.16f, -0.913f }; int ldc = 2; ! float C_expected[] = { -0.0855f, 0.0f, 0.581f, -0.56f, -0.0336f, -0.1587f, -0.048f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1610) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1610) imag"); }; }; --- 111,127 ---- int N = 2; int K = 1; ! float alpha = -0.3f; ! float beta = 0.0f; ! float A[] = { 0.963f, -0.23f, -0.435f, 0.289f }; int lda = 1; ! float C[] = { 0.282f, -0.272f, -0.516f, -0.594f, -0.001f, 0.155f, -0.39f, -0.354f }; int ldc = 2; ! float C_expected[] = { -0.294081f, 0.0f, -0.516f, -0.594f, 0.145613f, -0.0534771f, -0.0818238f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1602) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1602) imag"); }; }; *************** *** 135,151 **** int N = 2; int K = 1; ! float alpha = 0.0f; ! float beta = -0.3f; ! float A[] = { -0.984f, -0.398f, -0.379f, 0.919f }; int lda = 2; ! float C[] = { -0.44f, -0.087f, 0.156f, -0.945f, -0.943f, -0.355f, 0.577f, 0.053f }; int ldc = 2; ! float C_expected[] = { 0.132f, 0.0f, -0.0468f, 0.2835f, -0.943f, -0.355f, -0.1731f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1611) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1611) imag"); }; }; --- 135,151 ---- int N = 2; int K = 1; ! float alpha = -0.3f; ! float beta = 0.0f; ! float A[] = { 0.674f, 0.1f, -0.098f, 0.552f }; int lda = 2; ! float C[] = { 0.089f, -0.523f, -0.551f, 0.618f, 0.67f, 0.247f, 0.975f, -0.714f }; int ldc = 2; ! float C_expected[] = { -0.139283f, 0.0f, 0.0032556f, -0.114554f, 0.67f, 0.247f, -0.0942924f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1603) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1603) imag"); }; }; *************** *** 160,175 **** int K = 1; float alpha = 1.0f; ! float beta = -1.0f; ! float A[] = { 0.269f, -0.428f, -0.029f, 0.964f }; int lda = 2; ! float C[] = { 0.473f, -0.932f, -0.689f, -0.072f, -0.952f, -0.862f, 0.001f, 0.282f }; int ldc = 2; ! float C_expected[] = { -0.217455f, 0.0f, -0.689f, -0.072f, 0.531607f, 0.615096f, 0.929137f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1612) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1612) imag"); }; }; --- 160,175 ---- int K = 1; float alpha = 1.0f; ! float beta = 0.1f; ! float A[] = { 0.033f, -0.864f, 0.168f, 0.524f }; int lda = 2; ! float C[] = { 0.788f, 0.016f, -0.436f, 0.749f, -0.89f, -0.87f, 0.421f, -0.203f }; int ldc = 2; ! float C_expected[] = { 0.826385f, 0.0f, -0.436f, 0.749f, -0.536192f, -0.249444f, 0.3449f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1604) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1604) imag"); }; }; *************** *** 184,199 **** int K = 1; float alpha = 1.0f; ! float beta = -1.0f; ! float A[] = { -0.303f, -0.037f, -0.411f, -0.243f }; int lda = 1; ! float C[] = { 0.652f, -0.227f, -0.849f, 0.87f, -0.051f, -0.535f, 0.418f, -0.681f }; int ldc = 2; ! float C_expected[] = { -0.558822f, 0.0f, 0.982524f, -0.928422f, -0.051f, -0.535f, -0.19003f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1613) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1613) imag"); }; }; --- 184,199 ---- int K = 1; float alpha = 1.0f; ! float beta = 0.1f; ! float A[] = { 0.957f, -0.079f, 0.935f, 0.232f }; int lda = 1; ! float C[] = { -0.744f, -0.061f, 0.195f, -0.574f, 0.551f, 0.478f, -0.337f, 0.1f }; int ldc = 2; ! float C_expected[] = { 0.84769f, 0.0f, 0.895967f, -0.353289f, 0.551f, 0.478f, 0.894349f, 0.0f }; cblas_cherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "cherk(case 1605) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "cherk(case 1605) imag"); }; }; *************** *** 207,223 **** int N = 2; int K = 1; ! double alpha = 0.1; double beta = 1; ! double A[] = { -0.384, -0.851, 0.518, 0.492 }; int lda = 1; ! double C[] = { -0.117, -0.194, -0.915, 0.069, 0.445, 0.089, 0.213, -0.889 }; int ldc = 2; ! double C_expected[] = { -0.0298343, 0.0, -0.9767604, 0.043811, 0.445, 0.089, 0.2640388, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1614) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1614) imag"); }; }; --- 207,223 ---- int N = 2; int K = 1; ! double alpha = 1; double beta = 1; ! double A[] = { 0.934, 0.664, 0.426, 0.263 }; int lda = 1; ! double C[] = { 0.251, -0.97, 0.76, -0.349, 0.152, -0.899, -0.17, 0.707 }; int ldc = 2; ! double C_expected[] = { 1.564252, 0.0, 1.332516, -0.311778, 0.152, -0.899, 0.080645, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1606) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1606) imag"); }; }; *************** *** 231,247 **** int N = 2; int K = 1; ! double alpha = 0.1; double beta = 1; ! double A[] = { 0.13, 0.236, 0.788, 0.629 }; int lda = 2; ! double C[] = { 0.021, -0.376, -0.804, 0.689, -0.912, 0.21, -0.581, 0.406 }; int ldc = 2; ! double C_expected[] = { 0.0282596, 0.0, -0.804, 0.689, -0.8869116, 0.2204198, -0.4793415, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1615) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1615) imag"); }; }; --- 231,247 ---- int N = 2; int K = 1; ! double alpha = 1; double beta = 1; ! double A[] = { 0.16, 0.464, -0.623, 0.776 }; int lda = 2; ! double C[] = { 0.771, -0.449, 0.776, 0.112, -0.134, 0.317, 0.547, -0.551 }; int ldc = 2; ! double C_expected[] = { 1.011896, 0.0, 0.776, 0.112, 0.126384, -0.096232, 1.537305, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1607) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1607) imag"); }; }; *************** *** 255,271 **** int N = 2; int K = 1; ! double alpha = 0; double beta = 1; ! double A[] = { 0.593, 0.846, -0.144, 0.128 }; int lda = 2; ! double C[] = { 0.02, 0.313, 0.222, 0.301, 0.412, -0.645, -0.411, -0.02 }; int ldc = 2; ! double C_expected[] = { 0.02, 0.313, 0.222, 0.301, 0.412, -0.645, -0.411, -0.02 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1616) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1616) imag"); }; }; --- 255,271 ---- int N = 2; int K = 1; ! double alpha = 0.1; double beta = 1; ! double A[] = { 0.787, 0.057, -0.49, 0.47 }; int lda = 2; ! double C[] = { -0.758, 0.912, 0.992, -0.356, 0.584, 0.806, 0.965, 0.674 }; int ldc = 2; ! double C_expected[] = { -0.6957382, 0.0, 0.956116, -0.316218, 0.584, 0.806, 1.0111, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1608) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1608) imag"); }; }; *************** *** 279,295 **** int N = 2; int K = 1; ! double alpha = 0; double beta = 1; ! double A[] = { 0.857, 0.994, -0.933, 0.069 }; int lda = 1; ! double C[] = { 0.253, -0.521, 0.937, -0.73, 0.24, 0.177, -0.27, -0.225 }; int ldc = 2; ! double C_expected[] = { 0.253, -0.521, 0.937, -0.73, 0.24, 0.177, -0.27, -0.225 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1617) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1617) imag"); }; }; --- 279,295 ---- int N = 2; int K = 1; ! double alpha = 0.1; double beta = 1; ! double A[] = { 0.961, -0.384, 0.165, 0.395 }; int lda = 1; ! double C[] = { -0.186, 0.404, -0.873, 0.09, -0.451, -0.972, -0.203, -0.304 }; int ldc = 2; ! double C_expected[] = { -0.0789023, 0.0, -0.873, 0.09, -0.4503115, -0.9277045, -0.184675, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1609) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1609) imag"); }; }; *************** *** 304,319 **** int K = 1; double alpha = 0; ! double beta = 1; ! double A[] = { -0.343, -0.433, -0.381, -0.087 }; int lda = 1; ! double C[] = { -0.695, 0.911, 0.719, -0.074, -0.621, -0.256, 0.216, -0.889 }; int ldc = 2; ! double C_expected[] = { -0.695, 0.911, 0.719, -0.074, -0.621, -0.256, 0.216, -0.889 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1618) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1618) imag"); }; }; --- 304,319 ---- int K = 1; double alpha = 0; ! double beta = -0.3; ! double A[] = { 0.04, 0.608, 0.21, -0.44 }; int lda = 1; ! double C[] = { 0.285, -0.943, 0.581, -0.56, 0.112, 0.529, 0.16, -0.913 }; int ldc = 2; ! double C_expected[] = { -0.0855, 0.0, 0.581, -0.56, -0.0336, -0.1587, -0.048, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1610) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1610) imag"); }; }; *************** *** 328,343 **** int K = 1; double alpha = 0; ! double beta = 1; ! double A[] = { -0.887, 0.557, -0.43, 0.912 }; int lda = 2; ! double C[] = { -0.083, 0.219, 0.417, 0.817, -0.294, -0.683, -0.633, 0.831 }; int ldc = 2; ! double C_expected[] = { -0.083, 0.219, 0.417, 0.817, -0.294, -0.683, -0.633, 0.831 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1619) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1619) imag"); }; }; --- 328,343 ---- int K = 1; double alpha = 0; ! double beta = -0.3; ! double A[] = { -0.984, -0.398, -0.379, 0.919 }; int lda = 2; ! double C[] = { -0.44, -0.087, 0.156, -0.945, -0.943, -0.355, 0.577, 0.053 }; int ldc = 2; ! double C_expected[] = { 0.132, 0.0, -0.0468, 0.2835, -0.943, -0.355, -0.1731, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1611) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1611) imag"); }; }; *************** *** 351,367 **** int N = 2; int K = 1; ! double alpha = -0.3; double beta = -1; ! double A[] = { -0.531, 0.187, -0.777, -0.329 }; int lda = 2; ! double C[] = { -0.173, 0.833, 0.155, -0.52, -0.99, 0.28, 0.455, 0.481 }; int ldc = 2; ! double C_expected[] = { 0.077921, 0.0, 0.155, -0.52, 0.8846808, -0.1840006, -0.668591, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1620) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1620) imag"); }; }; --- 351,367 ---- int N = 2; int K = 1; ! double alpha = 1; double beta = -1; ! double A[] = { 0.269, -0.428, -0.029, 0.964 }; int lda = 2; ! double C[] = { 0.473, -0.932, -0.689, -0.072, -0.952, -0.862, 0.001, 0.282 }; int ldc = 2; ! double C_expected[] = { -0.217455, 0.0, -0.689, -0.072, 0.531607, 0.615096, 0.929137, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1612) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1612) imag"); }; }; *************** *** 375,391 **** int N = 2; int K = 1; ! double alpha = -0.3; double beta = -1; ! double A[] = { -0.287, 0.068, 0.917, -0.449 }; int lda = 1; ! double C[] = { -0.248, -0.608, -0.124, -0.718, -0.037, -0.115, 0.998, -0.551 }; int ldc = 2; ! double C_expected[] = { 0.2219021, 0.0, 0.2121133, 0.7379521, -0.037, -0.115, -1.310747, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1621) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1621) imag"); }; }; --- 375,391 ---- int N = 2; int K = 1; ! double alpha = 1; double beta = -1; ! double A[] = { -0.303, -0.037, -0.411, -0.243 }; int lda = 1; ! double C[] = { 0.652, -0.227, -0.849, 0.87, -0.051, -0.535, 0.418, -0.681 }; int ldc = 2; ! double C_expected[] = { -0.558822, 0.0, 0.982524, -0.928422, -0.051, -0.535, -0.19003, 0.0 }; cblas_zherk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zherk(case 1613) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zherk(case 1613) imag"); }; }; diff -x.info* -rc2P gsl-1.3/cblas/test_syr2k.c gsl-1.4/cblas/test_syr2k.c *** gsl-1.3/cblas/test_syr2k.c Mon Nov 19 21:35:17 2001 --- gsl-1.4/cblas/test_syr2k.c Fri Jul 25 15:18:09 2003 *************** *** 15,32 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.1f; ! float A[] = { -0.635f, 0.805f }; int lda = 2; ! float B[] = { 0.773f, 0.375f }; int ldb = 2; ! float C[] = { 0.616f }; int ldc = 1; ! float C_expected[] = { 0.174988f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1622)"); } }; --- 15,32 ---- int N = 1; int K = 2; ! float alpha = 0.1f; ! float beta = 1.0f; ! float A[] = { -0.915f, 0.445f }; int lda = 2; ! float B[] = { 0.213f, -0.194f }; int ldb = 2; ! float C[] = { -0.117f }; int ldc = 1; ! float C_expected[] = { -0.173245f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1614)"); } }; *************** *** 40,57 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.1f; ! float A[] = { -0.396f, -0.131f }; int lda = 2; ! float B[] = { -0.603f, -0.288f }; int ldb = 2; ! float C[] = { -0.434f }; int ldc = 1; ! float C_expected[] = { -0.20931f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1623)"); } }; --- 40,57 ---- int N = 1; int K = 2; ! float alpha = 0.1f; ! float beta = 1.0f; ! float A[] = { 0.089f, -0.889f }; int lda = 2; ! float B[] = { -0.384f, 0.518f }; int ldb = 2; ! float C[] = { 0.069f }; int ldc = 1; ! float C_expected[] = { -0.0299356f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1615)"); } }; *************** *** 65,82 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.1f; ! float A[] = { -0.085f, -0.444f }; int lda = 1; ! float B[] = { 0.936f, 0.752f }; int ldb = 1; ! float C[] = { -0.64f }; int ldc = 1; ! float C_expected[] = { 0.184069f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1624)"); } }; --- 65,82 ---- int N = 1; int K = 2; ! float alpha = 0.1f; ! float beta = 1.0f; ! float A[] = { 0.492f, 0.021f }; int lda = 1; ! float B[] = { -0.804f, -0.912f }; int ldb = 1; ! float C[] = { -0.851f }; int ldc = 1; ! float C_expected[] = { -0.933944f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1616)"); } }; *************** *** 90,107 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.1f; ! float A[] = { 0.655f, 0.45f }; int lda = 1; ! float B[] = { 0.16f, -0.747f }; int ldb = 1; ! float C[] = { 0.576f }; int ldc = 1; ! float C_expected[] = { 0.19641f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1625)"); } }; --- 90,107 ---- int N = 1; int K = 2; ! float alpha = 0.1f; ! float beta = 1.0f; ! float A[] = { -0.376f, 0.689f }; int lda = 1; ! float B[] = { 0.21f, 0.406f }; int ldb = 1; ! float C[] = { -0.581f }; int ldc = 1; ! float C_expected[] = { -0.540845f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1617)"); } }; *************** *** 115,132 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.0f; ! float A[] = { 0.259f, -0.334f }; int lda = 1; ! float B[] = { -0.911f, -0.426f }; int ldb = 1; ! float C[] = { 0.432f }; int ldc = 1; ! float C_expected[] = { 0.056199f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1626)"); } }; --- 115,132 ---- int N = 1; int K = 2; ! float alpha = 1.0f; ! float beta = -0.3f; ! float A[] = { 0.629f, -0.883f }; int lda = 1; ! float B[] = { -0.165f, 0.02f }; int ldb = 1; ! float C[] = { 0.236f }; int ldc = 1; ! float C_expected[] = { -0.31369f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1618)"); } }; *************** *** 140,157 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.0f; ! float A[] = { -0.765f, 0.7f }; int lda = 1; ! float B[] = { 0.487f, 0.768f }; int ldb = 1; ! float C[] = { 0.836f }; int ldc = 1; ! float C_expected[] = { -0.099027f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1627)"); } }; --- 140,157 ---- int N = 1; int K = 2; ! float alpha = 1.0f; ! float beta = -0.3f; ! float A[] = { 0.412f, -0.411f }; int lda = 1; ! float B[] = { 0.313f, 0.301f }; int ldb = 1; ! float C[] = { 0.222f }; int ldc = 1; ! float C_expected[] = { -0.05611f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1619)"); } }; *************** *** 165,182 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.0f; ! float A[] = { -0.584f, 0.056f }; int lda = 2; ! float B[] = { 0.928f, -0.101f }; int ldb = 2; ! float C[] = { -0.529f }; int ldc = 1; ! float C_expected[] = { 0.328565f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1628)"); } }; --- 165,182 ---- int N = 1; int K = 2; ! float alpha = 1.0f; ! float beta = -0.3f; ! float A[] = { -0.02f, 0.593f }; int lda = 2; ! float B[] = { -0.144f, 0.846f }; int ldb = 2; ! float C[] = { -0.645f }; int ldc = 1; ! float C_expected[] = { 1.20262f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1620)"); } }; *************** *** 190,207 **** int N = 1; int K = 2; ! float alpha = -0.3f; ! float beta = 0.0f; ! float A[] = { 0.25f, 0.8f }; int lda = 2; ! float B[] = { 0.489f, -0.642f }; int ldb = 2; ! float C[] = { 0.322f }; int ldc = 1; ! float C_expected[] = { 0.23481f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1629)"); } }; --- 190,207 ---- int N = 1; int K = 2; ! float alpha = 1.0f; ! float beta = -0.3f; ! float A[] = { 0.253f, 0.937f }; int lda = 2; ! float B[] = { 0.24f, -0.27f }; int ldb = 2; ! float C[] = { 0.128f }; int ldc = 1; ! float C_expected[] = { -0.42294f }; cblas_ssyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], flteps, "ssyr2k(case 1621)"); } }; *************** *** 215,232 **** int N = 1; int K = 2; ! double alpha = 0; double beta = 0; ! double A[] = { 0.591, 0.21 }; int lda = 2; ! double B[] = { -0.718, -0.579 }; int ldb = 2; ! double C[] = { -0.856 }; int ldc = 1; ! double C_expected[] = { -0.0 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1630)"); } }; --- 215,232 ---- int N = 1; int K = 2; ! double alpha = 0.1; double beta = 0; ! double A[] = { -0.225, 0.857 }; int lda = 2; ! double B[] = { -0.933, 0.994 }; int ldb = 2; ! double C[] = { 0.177 }; int ldc = 1; ! double C_expected[] = { 0.2123566 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1622)"); } }; *************** *** 240,257 **** int N = 1; int K = 2; ! double alpha = 0; double beta = 0; ! double A[] = { -0.971, -0.824 }; int lda = 2; ! double B[] = { -0.227, 0.457 }; int ldb = 2; ! double C[] = { 0.521 }; int ldc = 1; ! double C_expected[] = { 0.0 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1631)"); } }; --- 240,257 ---- int N = 1; int K = 2; ! double alpha = 0.1; double beta = 0; ! double A[] = { -0.955, 0.112 }; int lda = 2; ! double B[] = { -0.695, 0.719 }; int ldb = 2; ! double C[] = { 0.069 }; int ldc = 1; ! double C_expected[] = { 0.1488506 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1623)"); } }; *************** *** 265,282 **** int N = 1; int K = 2; ! double alpha = 0; double beta = 0; ! double A[] = { -0.274, 0.583 }; int lda = 1; ! double B[] = { 0.668, -0.83 }; int ldb = 1; ! double C[] = { 0.907 }; int ldc = 1; ! double C_expected[] = { 0.0 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1632)"); } }; --- 265,282 ---- int N = 1; int K = 2; ! double alpha = 0.1; double beta = 0; ! double A[] = { 0.216, 0.911 }; int lda = 1; ! double B[] = { -0.074, -0.256 }; int ldb = 1; ! double C[] = { -0.621 }; int ldc = 1; ! double C_expected[] = { -0.04984 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1624)"); } }; *************** *** 290,307 **** int N = 1; int K = 2; ! double alpha = 0; double beta = 0; ! double A[] = { -0.512, -0.436 }; int lda = 1; ! double B[] = { -0.443, -0.259 }; int ldb = 1; ! double C[] = { -0.667 }; int ldc = 1; ! double C_expected[] = { 0.0 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1633)"); } }; --- 290,307 ---- int N = 1; int K = 2; ! double alpha = 0.1; double beta = 0; ! double A[] = { -0.343, -0.381 }; int lda = 1; ! double B[] = { -0.433, -0.087 }; int ldb = 1; ! double C[] = { -0.889 }; int ldc = 1; ! double C_expected[] = { 0.0363332 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1625)"); } }; *************** *** 315,332 **** int N = 1; int K = 2; ! double alpha = -0.3; ! double beta = 0; ! double A[] = { 0.741, -0.341 }; int lda = 1; ! double B[] = { 0.743, -0.315 }; int ldb = 1; ! double C[] = { -0.776 }; int ldc = 1; ! double C_expected[] = { -0.3947868 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1634)"); } }; --- 315,332 ---- int N = 1; int K = 2; ! double alpha = 1; ! double beta = -1; ! double A[] = { -0.633, 0.219 }; int lda = 1; ! double B[] = { 0.817, -0.683 }; int ldb = 1; ! double C[] = { -0.294 }; int ldc = 1; ! double C_expected[] = { -1.039476 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1626)"); } }; *************** *** 340,357 **** int N = 1; int K = 2; ! double alpha = -0.3; ! double beta = 0; ! double A[] = { 0.03, 0.175 }; int lda = 1; ! double B[] = { -0.832, 0.291 }; int ldb = 1; ! double C[] = { 0.281 }; int ldc = 1; ! double C_expected[] = { -0.015579 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1635)"); } }; --- 340,357 ---- int N = 1; int K = 2; ! double alpha = 1; ! double beta = -1; ! double A[] = { -0.887, -0.43 }; int lda = 1; ! double B[] = { 0.557, 0.912 }; int ldb = 1; ! double C[] = { 0.831 }; int ldc = 1; ! double C_expected[] = { -2.603438 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1627)"); } }; *************** *** 365,382 **** int N = 1; int K = 2; ! double alpha = -0.3; ! double beta = 0; ! double A[] = { 0.476, 0.496 }; int lda = 2; ! double B[] = { -0.626, -0.159 }; int ldb = 2; ! double C[] = { -0.964 }; int ldc = 1; ! double C_expected[] = { 0.226104 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1636)"); } }; --- 365,382 ---- int N = 1; int K = 2; ! double alpha = 1; ! double beta = -1; ! double A[] = { 0.397, -0.173 }; int lda = 2; ! double B[] = { 0.155, -0.99 }; int ldb = 2; ! double C[] = { 0.621 }; int ldc = 1; ! double C_expected[] = { -0.15539 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1628)"); } }; *************** *** 390,407 **** int N = 1; int K = 2; ! double alpha = -0.3; ! double beta = 0; ! double A[] = { -0.489, 0.611 }; int lda = 2; ! double B[] = { -0.285, -0.673 }; int ldb = 2; ! double C[] = { -0.11 }; int ldc = 1; ! double C_expected[] = { 0.1631028 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1637)"); } }; --- 390,407 ---- int N = 1; int K = 2; ! double alpha = 1; ! double beta = -1; ! double A[] = { 0.833, -0.52 }; int lda = 2; ! double B[] = { 0.28, 0.481 }; int ldb = 2; ! double C[] = { 0.455 }; int ldc = 1; ! double C_expected[] = { -0.48876 }; cblas_dsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[i], C_expected[i], dbleps, "dsyr2k(case 1629)"); } }; *************** *** 415,433 **** int N = 1; int K = 2; ! float alpha[2] = {1.0f, 0.0f}; ! float beta[2] = {0.0f, 0.1f}; ! float A[] = { 0.796f, 0.872f, -0.919f, 0.748f }; int lda = 2; ! float B[] = { -0.945f, 0.915f, -0.252f, -0.276f }; int ldb = 2; ! float C[] = { 0.07f, -0.957f }; int ldc = 1; ! float C_expected[] = { -2.12843f, -0.054104f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1638) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1638) imag"); }; }; --- 415,433 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { -0.248f, -0.037f, -0.124f, 0.998f }; int lda = 2; ! float B[] = { -0.608f, -0.115f, -0.718f, -0.551f }; int ldb = 2; ! float C[] = { 0.187f, -0.329f }; int ldc = 1; ! float C_expected[] = { 0.119445f, 0.157092f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1630) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1630) imag"); }; }; *************** *** 441,459 **** int N = 1; int K = 2; ! float alpha[2] = {1.0f, 0.0f}; ! float beta[2] = {0.0f, 0.1f}; ! float A[] = { 0.984f, 0.526f, 0.284f, 0.806f }; int lda = 2; ! float B[] = { -0.509f, -0.178f, 0.188f, -0.221f }; int ldb = 2; ! float C[] = { -0.388f, 0.795f }; int ldc = 1; ! float C_expected[] = { -0.43092f, -0.747044f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1639) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1639) imag"); }; }; --- 441,459 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { 0.068f, 0.751f, -0.449f, -0.598f }; int lda = 2; ! float B[] = { 0.616f, 0.805f, -0.635f, 0.773f }; int ldb = 2; ! float C[] = { -0.287f, 0.917f }; int ldc = 1; ! float C_expected[] = { -0.110002f, 0.0369404f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1631) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1631) imag"); }; }; *************** *** 467,485 **** int N = 1; int K = 2; ! float alpha[2] = {1.0f, 0.0f}; ! float beta[2] = {0.0f, 0.1f}; ! float A[] = { -0.16f, 0.628f, -0.06f, -0.645f }; int lda = 1; ! float B[] = { 0.846f, 0.545f, 0.032f, 0.493f }; int ldb = 1; ! float C[] = { -0.041f, -0.621f }; int ldc = 1; ! float C_expected[] = { -0.26101f, 0.783636f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1640) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1640) imag"); }; }; --- 467,485 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { -0.396f, -0.603f, -0.131f, -0.288f }; int lda = 1; ! float B[] = { -0.64f, -0.444f, -0.085f, 0.936f }; int ldb = 1; ! float C[] = { 0.375f, -0.434f }; int ldc = 1; ! float C_expected[] = { -0.0927216f, 0.0532822f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1632) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1632) imag"); }; }; *************** *** 493,511 **** int N = 1; int K = 2; ! float alpha[2] = {1.0f, 0.0f}; ! float beta[2] = {0.0f, 0.1f}; ! float A[] = { -0.478f, -0.556f, 0.519f, 0.177f }; int lda = 1; ! float B[] = { -0.946f, 0.423f, -0.859f, 0.736f }; int ldb = 1; ! float C[] = { -0.54f, -0.035f }; int ldc = 1; ! float C_expected[] = { 0.226066f, 1.05345f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1641) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1641) imag"); }; }; --- 493,511 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { 0.655f, 0.16f, 0.45f, -0.747f }; int lda = 1; ! float B[] = { 0.923f, 0.432f, -0.986f, 0.259f }; int ldb = 1; ! float C[] = { 0.752f, 0.576f }; int ldc = 1; ! float C_expected[] = { -0.256746f, 0.0570436f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1633) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1633) imag"); }; }; *************** *** 519,537 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.0f}; ! float beta[2] = {1.0f, 0.0f}; ! float A[] = { -0.582f, 0.09f, -0.176f, 0.784f }; int lda = 1; ! float B[] = { 0.687f, -0.859f, 0.945f, 0.756f }; int ldb = 1; ! float C[] = { -0.663f, -0.186f }; int ldc = 1; ! float C_expected[] = { -0.663f, -0.186f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1642) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1642) imag"); }; }; --- 519,537 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { -0.765f, 0.487f, 0.7f, 0.768f }; int lda = 1; ! float B[] = { -0.529f, 0.056f, -0.584f, 0.928f }; int ldb = 1; ! float C[] = { -0.426f, 0.836f }; int ldc = 1; ! float C_expected[] = { 0.019875f, -0.148818f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1634) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1634) imag"); }; }; *************** *** 545,563 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.0f}; ! float beta[2] = {1.0f, 0.0f}; ! float A[] = { 0.231f, -0.452f, -0.112f, -0.837f }; int lda = 1; ! float B[] = { -0.258f, 0.464f, -0.224f, 0.893f }; int ldb = 1; ! float C[] = { -0.448f, 0.046f }; int ldc = 1; ! float C_expected[] = { -0.448f, 0.046f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1643) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1643) imag"); }; }; --- 545,563 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { 0.25f, 0.489f, 0.8f, -0.642f }; int lda = 1; ! float B[] = { -0.732f, -0.856f, -0.654f, 0.591f }; int ldb = 1; ! float C[] = { -0.101f, 0.322f }; int ldc = 1; ! float C_expected[] = { -0.064144f, 0.0183612f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1635) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1635) imag"); }; }; *************** *** 571,589 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.0f}; ! float beta[2] = {1.0f, 0.0f}; ! float A[] = { 0.115f, 0.178f, -0.193f, -0.491f }; int lda = 2; ! float B[] = { 0.545f, -0.665f, 0.979f, -0.4f }; int ldb = 2; ! float C[] = { 0.522f, 0.712f }; int ldc = 1; ! float C_expected[] = { 0.522f, 0.712f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1644) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1644) imag"); }; }; --- 571,589 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { -0.579f, -0.971f, 0.521f, -0.824f }; int lda = 2; ! float B[] = { -0.227f, 0.907f, 0.457f, -0.274f }; int ldb = 2; ! float C[] = { 0.21f, -0.718f }; int ldc = 1; ! float C_expected[] = { 0.164812f, 0.20489f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1636) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1636) imag"); }; }; *************** *** 597,615 **** int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.0f}; ! float beta[2] = {1.0f, 0.0f}; ! float A[] = { -0.725f, -0.808f, -0.244f, 0.145f }; int lda = 2; ! float B[] = { 0.447f, -0.413f, -0.226f, -0.585f }; int ldb = 2; ! float C[] = { -0.531f, 0.227f }; int ldc = 1; ! float C_expected[] = { -0.531f, 0.227f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1645) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1645) imag"); }; }; --- 597,615 ---- int N = 1; int K = 2; ! float alpha[2] = {0.0f, 0.1f}; ! float beta[2] = {0.0f, 0.0f}; ! float A[] = { -0.83f, -0.512f, -0.667f, -0.436f }; int lda = 2; ! float B[] = { -0.443f, 0.82f, -0.259f, -0.618f }; int ldb = 2; ! float C[] = { 0.583f, 0.668f }; int ldc = 1; ! float C_expected[] = { -0.0142692f, 0.138167f }; cblas_csyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyr2k(case 1637) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyr2k(case 1637) imag"); }; }; *************** *** 623,641 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {-0.3, 0.1}; ! double A[] = { 0.337, -0.737, -0.993, 0.69 }; int lda = 2; ! double B[] = { -0.39, -0.836, -0.32, 0.368 }; int ldb = 2; ! double C[] = { 0.844, -0.763 }; int ldc = 1; ! double C_expected[] = { 0.3494384, 0.5248712 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1646) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1646) imag"); }; }; --- 623,641 ---- int N = 1; int K = 2; ! double alpha[2] = {0, 0}; double beta[2] = {-0.3, 0.1}; ! double A[] = { -0.315, 0.03, 0.281, 0.175 }; int lda = 2; ! double B[] = { -0.832, -0.964, 0.291, 0.476 }; int ldb = 2; ! double C[] = { -0.341, 0.743 }; int ldc = 1; ! double C_expected[] = { 0.028, -0.257 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1638) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1638) imag"); }; }; *************** *** 649,667 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {-0.3, 0.1}; ! double A[] = { 0.386, -0.465, 0.719, -0.378 }; int lda = 2; ! double B[] = { 0.099, -0.879, 0.864, 0.141 }; int ldb = 2; ! double C[] = { -0.599, -0.47 }; int ldc = 1; ! double C_expected[] = { 0.1664126, 0.5082238 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1647) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1647) imag"); }; }; --- 649,667 ---- int N = 1; int K = 2; ! double alpha[2] = {0, 0}; double beta[2] = {-0.3, 0.1}; ! double A[] = { -0.159, -0.489, -0.11, 0.611 }; int lda = 2; ! double B[] = { -0.285, -0.048, -0.673, -0.492 }; int ldb = 2; ! double C[] = { 0.496, -0.626 }; int ldc = 1; ! double C_expected[] = { -0.0862, 0.2374 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1639) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1639) imag"); }; }; *************** *** 675,693 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {-0.3, 0.1}; ! double A[] = { 0.914, 0.128, -0.262, -0.26 }; int lda = 1; ! double B[] = { 0.431, 0.276, 0.75, 0.904 }; int ldb = 1; ! double C[] = { 0.287, 0.537 }; int ldc = 1; ! double C_expected[] = { -0.3532044, 0.0216788 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1648) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1648) imag"); }; }; --- 675,693 ---- int N = 1; int K = 2; ! double alpha[2] = {0, 0}; double beta[2] = {-0.3, 0.1}; ! double A[] = { 0.796, 0.872, -0.919, 0.748 }; int lda = 1; ! double B[] = { -0.945, 0.915, -0.252, -0.276 }; int ldb = 1; ! double C[] = { 0.07, -0.957 }; int ldc = 1; ! double C_expected[] = { 0.0747, 0.2941 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1640) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1640) imag"); }; }; *************** *** 701,719 **** int N = 1; int K = 2; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {-0.3, 0.1}; ! double A[] = { 0.618, 0.72, 0.392, -0.737 }; int lda = 1; ! double B[] = { 0.783, 0.531, 0.375, 0.203 }; int ldb = 1; ! double C[] = { 0.058, -0.116 }; int ldc = 1; ! double C_expected[] = { -0.3837348, -0.2968344 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1649) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1649) imag"); }; }; --- 701,719 ---- int N = 1; int K = 2; ! double alpha[2] = {0, 0}; double beta[2] = {-0.3, 0.1}; ! double A[] = { 0.984, 0.526, 0.284, 0.806 }; int lda = 1; ! double B[] = { -0.509, -0.178, 0.188, -0.221 }; int ldb = 1; ! double C[] = { -0.388, 0.795 }; int ldc = 1; ! double C_expected[] = { 0.0369, -0.2773 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1641) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1641) imag"); }; }; *************** *** 727,745 **** int N = 1; int K = 2; ! double alpha[2] = {0, 1}; ! double beta[2] = {1, 0}; ! double A[] = { -0.372, -0.735, -0.711, 0.051 }; int lda = 1; ! double B[] = { 0.257, 0.097, 0.338, -0.484 }; int ldb = 1; ! double C[] = { -0.142, -0.197 }; int ldc = 1; ! double C_expected[] = { -0.414766, -0.676886 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1650) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1650) imag"); }; }; --- 727,745 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta[2] = {0, 0.1}; ! double A[] = { 0.628, 0.846, -0.645, 0.032 }; int lda = 1; ! double B[] = { 0.545, -0.54, 0.493, -0.035 }; int ldb = 1; ! double C[] = { -0.16, -0.06 }; int ldc = 1; ! double C_expected[] = { 0.97047, 0.304602 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1642) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1642) imag"); }; }; *************** *** 753,771 **** int N = 1; int K = 2; ! double alpha[2] = {0, 1}; ! double beta[2] = {1, 0}; ! double A[] = { 0.1, -0.878, 0.28, -0.381 }; int lda = 1; ! double B[] = { -0.208, 0.309, -0.276, 0.123 }; int ldb = 1; ! double C[] = { 0.483, -0.541 }; int ldc = 1; ! double C_expected[] = { -0.22324, -0.10083 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1651) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1651) imag"); }; }; --- 753,771 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta[2] = {0, 0.1}; ! double A[] = { -0.556, -0.946, 0.177, -0.859 }; int lda = 1; ! double B[] = { 0.423, -0.91, 0.736, -0.251 }; int ldb = 1; ! double C[] = { -0.478, 0.519 }; int ldc = 1; ! double C_expected[] = { -2.41467, -1.189498 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1643) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1643) imag"); }; }; *************** *** 779,797 **** int N = 1; int K = 2; ! double alpha[2] = {0, 1}; ! double beta[2] = {1, 0}; ! double A[] = { -0.918, 0.515, -0.985, 0.067 }; int lda = 2; ! double B[] = { -0.034, 0.408, 0.66, -0.945 }; int ldb = 2; ! double C[] = { -0.063, -0.018 }; int ldc = 1; ! double C_expected[] = { -1.228982, -1.549386 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1652) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1652) imag"); }; }; --- 779,797 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta[2] = {0, 0.1}; ! double A[] = { -0.582, 0.09, -0.176, 0.784 }; int lda = 2; ! double B[] = { 0.687, -0.859, 0.945, 0.756 }; int ldb = 2; ! double C[] = { -0.663, -0.186 }; int ldc = 1; ! double C_expected[] = { -2.144496, 2.272884 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1644) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1644) imag"); }; }; *************** *** 805,823 **** int N = 1; int K = 2; ! double alpha[2] = {0, 1}; ! double beta[2] = {1, 0}; ! double A[] = { 0.443, -0.009, -0.245, -0.008 }; int lda = 2; ! double B[] = { 0.495, -0.239, -0.973, -0.032 }; int ldb = 2; ! double C[] = { -0.85, -0.799 }; int ldc = 1; ! double C_expected[] = { -0.660584, 0.111526 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1653) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1653) imag"); }; }; --- 805,823 ---- int N = 1; int K = 2; ! double alpha[2] = {1, 0}; ! double beta[2] = {0, 0.1}; ! double A[] = { 0.231, -0.452, -0.112, -0.837 }; int lda = 2; ! double B[] = { -0.258, 0.464, -0.224, 0.893 }; int ldb = 2; ! double C[] = { -0.448, 0.046 }; int ldc = 1; ! double C_expected[] = { 1.840718, 0.577744 }; cblas_zsyr2k(order, uplo, trans, N, K, alpha, A, lda, B, ldb, beta, C, ldc); { int i; for (i = 0; i < 1; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyr2k(case 1645) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyr2k(case 1645) imag"); }; }; diff -x.info* -rc2P gsl-1.3/cblas/test_syrk.c gsl-1.4/cblas/test_syrk.c *** gsl-1.3/cblas/test_syrk.c Mon Nov 19 21:35:16 2001 --- gsl-1.4/cblas/test_syrk.c Fri Jul 25 15:18:09 2003 *************** *** 475,480 **** { int order = 101; ! int uplo = 121; ! int trans = 113; int N = 2; int K = 1; --- 475,480 ---- { int order = 101; ! int uplo = 122; ! int trans = 111; int N = 2; int K = 1; *************** *** 482,489 **** float beta[2] = {0.0f, 1.0f}; float A[] = { 0.784f, -0.281f, -0.88f, 0.479f }; ! int lda = 2; float C[] = { 0.491f, 0.531f, 0.805f, -0.097f, 0.728f, 0.674f, -0.705f, -0.754f }; int ldc = 2; ! float C_expected[] = { 0.004695f, 0.050392f, -0.458321f, 1.42782f, 0.728f, 0.674f, 1.29896f, -1.54804f }; cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { --- 482,489 ---- float beta[2] = {0.0f, 1.0f}; float A[] = { 0.784f, -0.281f, -0.88f, 0.479f }; ! int lda = 1; float C[] = { 0.491f, 0.531f, 0.805f, -0.097f, 0.728f, 0.674f, -0.705f, -0.754f }; int ldc = 2; ! float C_expected[] = { 0.004695f, 0.050392f, 0.805f, -0.097f, -1.22932f, 1.35082f, 1.29896f, -1.54804f }; cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { *************** *** 499,504 **** { int order = 102; ! int uplo = 121; ! int trans = 113; int N = 2; int K = 1; --- 499,504 ---- { int order = 102; ! int uplo = 122; ! int trans = 111; int N = 2; int K = 1; *************** *** 506,513 **** float beta[2] = {0.0f, 1.0f}; float A[] = { 0.272f, -0.146f, 0.155f, 0.038f }; ! int lda = 1; float C[] = { 0.533f, -0.41f, -0.904f, 0.301f, -0.836f, 0.57f, -0.374f, -0.293f }; int ldc = 2; ! float C_expected[] = { 0.462668f, 0.453576f, -0.904f, 0.301f, -0.522292f, -0.848294f, 0.315581f, -0.36222f }; cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { --- 506,513 ---- float beta[2] = {0.0f, 1.0f}; float A[] = { 0.272f, -0.146f, 0.155f, 0.038f }; ! int lda = 2; float C[] = { 0.533f, -0.41f, -0.904f, 0.301f, -0.836f, 0.57f, -0.374f, -0.293f }; int ldc = 2; ! float C_expected[] = { 0.462668f, 0.453576f, -0.253292f, -0.916294f, -0.836f, 0.57f, 0.315581f, -0.36222f }; cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { *************** *** 524,528 **** int order = 101; int uplo = 122; ! int trans = 111; int N = 2; int K = 1; --- 524,528 ---- int order = 101; int uplo = 122; ! int trans = 112; int N = 2; int K = 1; *************** *** 530,534 **** float beta[2] = {-1.0f, 0.0f}; float A[] = { -0.055f, -0.127f, -0.896f, -0.625f }; ! int lda = 1; float C[] = { -0.619f, 0.511f, -0.877f, 0.557f, -0.801f, -0.437f, -0.922f, 0.332f }; int ldc = 2; --- 530,534 ---- float beta[2] = {-1.0f, 0.0f}; float A[] = { -0.055f, -0.127f, -0.896f, -0.625f }; ! int lda = 2; float C[] = { -0.619f, 0.511f, -0.877f, 0.557f, -0.801f, -0.437f, -0.922f, 0.332f }; int ldc = 2; *************** *** 548,552 **** int order = 102; int uplo = 122; ! int trans = 111; int N = 2; int K = 1; --- 548,552 ---- int order = 102; int uplo = 122; ! int trans = 112; int N = 2; int K = 1; *************** *** 554,558 **** float beta[2] = {-1.0f, 0.0f}; float A[] = { -0.528f, 0.759f, -0.079f, 0.952f }; ! int lda = 2; float C[] = { 0.775f, 0.855f, 0.786f, 0.525f, 0.85f, 0.044f, 0.658f, 0.947f }; int ldc = 2; --- 554,558 ---- float beta[2] = {-1.0f, 0.0f}; float A[] = { -0.528f, 0.759f, -0.079f, 0.952f }; ! int lda = 1; float C[] = { 0.775f, 0.855f, 0.786f, 0.525f, 0.85f, 0.044f, 0.658f, 0.947f }; int ldc = 2; *************** *** 571,687 **** { int order = 101; - int uplo = 122; - int trans = 112; - int N = 2; - int K = 1; - float alpha[2] = {1.0f, 0.0f}; - float beta[2] = {1.0f, 0.0f}; - float A[] = { -0.049f, -0.687f, -0.434f, 0.294f }; - int lda = 2; - float C[] = { 0.937f, -0.113f, 0.796f, 0.293f, 0.876f, -0.199f, -0.757f, -0.103f }; - int ldc = 2; - float C_expected[] = { 0.467432f, -0.045674f, 0.796f, 0.293f, 1.09924f, 0.084752f, -0.65508f, -0.358192f }; - cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); - { - int i; - for (i = 0; i < 4; i++) { - gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyrk(case 1590) real"); - gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyrk(case 1590) imag"); - }; - }; - }; - - - { - int order = 102; - int uplo = 122; - int trans = 112; - int N = 2; - int K = 1; - float alpha[2] = {1.0f, 0.0f}; - float beta[2] = {1.0f, 0.0f}; - float A[] = { 0.359f, -0.364f, 0.926f, -0.69f }; - int lda = 1; - float C[] = { 0.306f, 0.249f, 0.28f, 0.229f, 0.866f, 0.092f, 0.886f, -0.283f }; - int ldc = 2; - float C_expected[] = { 0.302385f, -0.012352f, 0.361274f, -0.355774f, 0.866f, 0.092f, 1.26738f, -1.56088f }; - cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); - { - int i; - for (i = 0; i < 4; i++) { - gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyrk(case 1591) real"); - gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyrk(case 1591) imag"); - }; - }; - }; - - - { - int order = 101; - int uplo = 122; - int trans = 113; - int N = 2; - int K = 1; - float alpha[2] = {-0.3f, 0.1f}; - float beta[2] = {0.0f, 0.0f}; - float A[] = { 0.607f, 0.555f, -0.85f, 0.831f }; - int lda = 2; - float C[] = { 0.069f, 0.368f, 0.551f, -0.912f, -0.243f, -0.063f, -0.924f, 0.192f }; - int ldc = 2; - float C_expected[] = { -0.0855042f, -0.196089f, 0.551f, -0.912f, 0.28988f, -0.107516f, 0.131688f, 0.427004f }; - cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); - { - int i; - for (i = 0; i < 4; i++) { - gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyrk(case 1592) real"); - gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyrk(case 1592) imag"); - }; - }; - }; - - - { - int order = 102; - int uplo = 122; - int trans = 113; - int N = 2; - int K = 1; - float alpha[2] = {-0.3f, 0.1f}; - float beta[2] = {0.0f, 0.0f}; - float A[] = { 0.427f, 0.86f, -0.136f, 0.002f }; - int lda = 1; - float C[] = { 0.398f, -0.47f, 0.011f, -0.547f, -0.106f, 0.016f, 0.681f, 0.246f }; - int ldc = 2; - float C_expected[] = { 0.0937373f, -0.276059f, 0.0295482f, 0.0288526f, -0.106f, 0.016f, -0.0054932f, 0.0020124f }; - cblas_csyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); - { - int i; - for (i = 0; i < 4; i++) { - gsl_test_rel(C[2*i], C_expected[2*i], flteps, "csyrk(case 1593) real"); - gsl_test_rel(C[2*i+1], C_expected[2*i+1], flteps, "csyrk(case 1593) imag"); - }; - }; - }; - - - { - int order = 101; int uplo = 121; int trans = 111; int N = 2; int K = 1; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {1, 0}; ! double A[] = { 0.718, 0.023, 0.355, -0.492 }; int lda = 1; ! double C[] = { -0.637, -0.727, -0.475, -0.776, 0.802, -0.55, -0.837, 0.222 }; int ldc = 2; ! double C_expected[] = { -0.7948013, -0.6854089, -0.5203527, -0.6458521, 0.802, -0.55, -0.7672563, 0.3151921 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1594) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1594) imag"); }; }; --- 571,591 ---- { int order = 101; int uplo = 121; int trans = 111; int N = 2; int K = 1; ! double alpha[2] = {1, 0}; double beta[2] = {1, 0}; ! double A[] = { -0.049, -0.687, -0.434, 0.294 }; int lda = 1; ! double C[] = { 0.937, -0.113, 0.796, 0.293, 0.876, -0.199, -0.757, -0.103 }; int ldc = 2; ! double C_expected[] = { 0.467432, -0.045674, 1.019244, 0.576752, 0.876, -0.199, -0.65508, -0.358192 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1590) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1590) imag"); }; }; *************** *** 695,711 **** int N = 2; int K = 1; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {1, 0}; ! double A[] = { 0.209, 0.139, -0.202, -0.223 }; int lda = 2; ! double C[] = { -0.695, 0.524, 0.212, -0.88, -0.752, 0.291, 0.684, -0.124 }; int ldc = 2; ! double C_expected[] = { -0.7081182, 0.5090054, 0.212, -0.88, -0.7411652, 0.3122834, 0.6776683, -0.1519201 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1595) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1595) imag"); }; }; --- 599,615 ---- int N = 2; int K = 1; ! double alpha[2] = {1, 0}; double beta[2] = {1, 0}; ! double A[] = { 0.359, -0.364, 0.926, -0.69 }; int lda = 2; ! double C[] = { 0.306, 0.249, 0.28, 0.229, 0.866, 0.092, 0.886, -0.283 }; int ldc = 2; ! double C_expected[] = { 0.302385, -0.012352, 0.28, 0.229, 0.947274, -0.492774, 1.267376, -1.56088 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1591) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1591) imag"); }; }; *************** *** 720,735 **** int K = 1; double alpha[2] = {-0.3, 0.1}; ! double beta[2] = {1, 0}; ! double A[] = { -0.365, -0.624, 0.632, 0.348 }; int lda = 2; ! double C[] = { 0.877, 0.927, -0.377, 0.967, 0.008, 0.292, -0.779, 0.794 }; int ldc = 2; ! double C_expected[] = { 0.9082933, 0.7647289, -0.3208028, 1.1220636, 0.008, 0.292, -0.9064832, 0.6898704 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1596) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1596) imag"); }; }; --- 624,639 ---- int K = 1; double alpha[2] = {-0.3, 0.1}; ! double beta[2] = {0, 0}; ! double A[] = { 0.607, 0.555, -0.85, 0.831 }; int lda = 2; ! double C[] = { 0.069, 0.368, 0.551, -0.912, -0.243, -0.063, -0.924, 0.192 }; int ldc = 2; ! double C_expected[] = { -0.0855042, -0.1960886, 0.2898798, -0.1075156, -0.243, -0.063, 0.1316883, 0.4270039 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1592) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1592) imag"); }; }; *************** *** 744,807 **** int K = 1; double alpha[2] = {-0.3, 0.1}; ! double beta[2] = {1, 0}; ! double A[] = { -0.067, -0.586, 0.208, 0.331 }; ! int lda = 1; ! double C[] = { 0.584, -0.454, 0.93, 0.782, 0.489, -0.278, 0.081, -0.919 }; ! int ldc = 2; ! double C_expected[] = { 0.6778197, -0.5114479, 0.93, 0.782, 0.4493975, -0.2167775, 0.0871195, -0.9669385 }; ! cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); ! { ! int i; ! for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1597) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1597) imag"); ! }; ! }; ! }; ! ! ! { ! int order = 101; ! int uplo = 121; ! int trans = 113; ! int N = 2; ! int K = 1; ! double alpha[2] = {0, 0.1}; ! double beta[2] = {0, 0.1}; ! double A[] = { -0.617, 0.179, -0.626, 0.334 }; ! int lda = 2; ! double C[] = { 0.346, -0.903, 0.022, -0.839, -0.715, 0.049, -0.338, 0.149 }; ! int ldc = 2; ! double C_expected[] = { 0.1123886, 0.0694648, 0.1157132, 0.0348456, -0.715, 0.049, 0.0269168, -0.005768 }; ! cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); ! { ! int i; ! for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1598) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1598) imag"); ! }; ! }; ! }; ! ! ! { ! int order = 102; ! int uplo = 121; ! int trans = 113; ! int N = 2; ! int K = 1; ! double alpha[2] = {0, 0.1}; ! double beta[2] = {0, 0.1}; ! double A[] = { -0.356, -0.308, 0.493, -0.351 }; int lda = 1; ! double C[] = { -0.898, -0.905, 0.002, -0.219, 0.881, 0.879, 0.275, -0.351 }; int ldc = 2; ! double C_expected[] = { 0.0685704, -0.0866128, 0.002, -0.219, -0.0852112, 0.0597384, 0.0697086, 0.0394848 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1599) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1599) imag"); }; }; --- 648,663 ---- int K = 1; double alpha[2] = {-0.3, 0.1}; ! double beta[2] = {0, 0}; ! double A[] = { 0.427, 0.86, -0.136, 0.002 }; int lda = 1; ! double C[] = { 0.398, -0.47, 0.011, -0.547, -0.106, 0.016, 0.681, 0.246 }; int ldc = 2; ! double C_expected[] = { 0.0937373, -0.2760591, 0.011, -0.547, 0.0295482, 0.0288526, -0.0054932, 0.0020124 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1593) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1593) imag"); }; }; *************** *** 815,831 **** int N = 2; int K = 1; ! double alpha[2] = {0, 0.1}; double beta[2] = {1, 0}; ! double A[] = { -0.103, -0.951, -0.601, -0.041 }; int lda = 1; ! double C[] = { -0.918, -0.018, 0.991, -0.789, -0.698, -0.067, 0.956, -0.599 }; int ldc = 2; ! double C_expected[] = { -0.9375906, -0.1073792, 0.991, -0.789, -0.7555774, -0.0647088, 0.9510718, -0.563048 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1600) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1600) imag"); }; }; --- 671,687 ---- int N = 2; int K = 1; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {1, 0}; ! double A[] = { 0.718, 0.023, 0.355, -0.492 }; int lda = 1; ! double C[] = { -0.637, -0.727, -0.475, -0.776, 0.802, -0.55, -0.837, 0.222 }; int ldc = 2; ! double C_expected[] = { -0.7948013, -0.6854089, -0.475, -0.776, 0.7566473, -0.4198521, -0.7672563, 0.3151921 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1594) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1594) imag"); }; }; *************** *** 839,855 **** int N = 2; int K = 1; ! double alpha[2] = {0, 0.1}; double beta[2] = {1, 0}; ! double A[] = { -0.237, 0.925, -0.904, -0.091 }; int lda = 2; ! double C[] = { -0.572, 0.915, 0.398, 0.222, 0.016, 0.288, -0.078, -0.507 }; int ldc = 2; ! double C_expected[] = { -0.528155, 0.8350544, 0.4794633, 0.2518423, 0.016, 0.288, -0.0944528, -0.4261065 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1601) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1601) imag"); }; }; --- 695,711 ---- int N = 2; int K = 1; ! double alpha[2] = {-0.3, 0.1}; double beta[2] = {1, 0}; ! double A[] = { 0.209, 0.139, -0.202, -0.223 }; int lda = 2; ! double C[] = { -0.695, 0.524, 0.212, -0.88, -0.752, 0.291, 0.684, -0.124 }; int ldc = 2; ! double C_expected[] = { -0.7081182, 0.5090054, 0.2228348, -0.8587166, -0.752, 0.291, 0.6776683, -0.1519201 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1595) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1595) imag"); }; }; *************** *** 864,879 **** int K = 1; double alpha[2] = {-0.3, 0.1}; ! double beta[2] = {0, 0}; ! double A[] = { 0.963, -0.23, -0.435, 0.289 }; int lda = 2; ! double C[] = { 0.282, -0.272, -0.516, -0.594, -0.001, 0.155, -0.39, -0.354 }; int ldc = 2; ! double C_expected[] = { -0.2180427, 0.2203409, -0.516, -0.594, 0.0678948, -0.1487506, -0.0065682, 0.0859994 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1602) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1602) imag"); }; }; --- 720,735 ---- int K = 1; double alpha[2] = {-0.3, 0.1}; ! double beta[2] = {1, 0}; ! double A[] = { -0.365, -0.624, 0.632, 0.348 }; int lda = 2; ! double C[] = { 0.877, 0.927, -0.377, 0.967, 0.008, 0.292, -0.779, 0.794 }; int ldc = 2; ! double C_expected[] = { 0.9082933, 0.7647289, -0.377, 0.967, 0.0641972, 0.4470636, -0.9064832, 0.6898704 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1596) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1596) imag"); }; }; *************** *** 888,951 **** int K = 1; double alpha[2] = {-0.3, 0.1}; - double beta[2] = {0, 0}; - double A[] = { 0.674, 0.1, -0.098, 0.552 }; - int lda = 1; - double C[] = { 0.089, -0.523, -0.551, 0.618, 0.67, 0.247, 0.975, -0.714 }; - int ldc = 2; - double C_expected[] = { -0.1467628, 0.0039876, 0.0001508, -0.1207996, 0.67, 0.247, 0.0993492, 0.0029476 }; - cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); - { - int i; - for (i = 0; i < 4; i++) { - gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1603) real"); - gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1603) imag"); - }; - }; - }; - - - { - int order = 101; - int uplo = 122; - int trans = 113; - int N = 2; - int K = 1; - double alpha[2] = {0, 1}; - double beta[2] = {1, 0}; - double A[] = { 0.033, -0.864, 0.168, 0.524 }; - int lda = 2; - double C[] = { 0.788, 0.016, -0.436, 0.749, -0.89, -0.87, 0.421, -0.203 }; - int ldc = 2; - double C_expected[] = { 0.845024, -0.729407, -0.436, 0.749, -0.76214, -0.41172, 0.244936, -0.449352 }; - cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); - { - int i; - for (i = 0; i < 4; i++) { - gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1604) real"); - gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1604) imag"); - }; - }; - }; - - - { - int order = 102; - int uplo = 122; - int trans = 113; - int N = 2; - int K = 1; - double alpha[2] = {0, 1}; double beta[2] = {1, 0}; ! double A[] = { 0.957, -0.079, 0.935, 0.232 }; int lda = 1; ! double C[] = { -0.744, -0.061, 0.195, -0.574, 0.551, 0.478, -0.337, 0.1 }; int ldc = 2; ! double C_expected[] = { -0.592794, 0.848608, 0.046841, 0.339123, 0.551, 0.478, -0.77084, 0.920401 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1605) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1605) imag"); }; }; --- 744,759 ---- int K = 1; double alpha[2] = {-0.3, 0.1}; double beta[2] = {1, 0}; ! double A[] = { -0.067, -0.586, 0.208, 0.331 }; int lda = 1; ! double C[] = { 0.584, -0.454, 0.93, 0.782, 0.489, -0.278, 0.081, -0.919 }; int ldc = 2; ! double C_expected[] = { 0.6778197, -0.5114479, 0.8903975, 0.8432225, 0.489, -0.278, 0.0871195, -0.9669385 }; cblas_zsyrk(order, uplo, trans, N, K, alpha, A, lda, beta, C, ldc); { int i; for (i = 0; i < 4; i++) { ! gsl_test_rel(C[2*i], C_expected[2*i], dbleps, "zsyrk(case 1597) real"); ! gsl_test_rel(C[2*i+1], C_expected[2*i+1], dbleps, "zsyrk(case 1597) imag"); }; }; diff -x.info* -rc2P gsl-1.3/cblas/test_trmm.c gsl-1.4/cblas/test_trmm.c *** gsl-1.3/cblas/test_trmm.c Mon Nov 19 21:35:16 2001 --- gsl-1.4/cblas/test_trmm.c Fri Jul 25 15:18:09 2003 *************** *** 17,31 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.565f, 0.967f, -0.969f, 0.184f }; int lda = 2; ! float B[] = { 0.842f, -0.918f, -0.748f, -0.859f, -0.463f, 0.292f }; int ldb = 3; ! float B_expected[] = { -0.354923f, -0.966391f, -0.140256f, -0.158056f, -0.085192f, 0.053728f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1670)"); } }; --- 17,31 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.18f, 0.199f, 0.122f, -0.547f }; int lda = 2; ! float B[] = { -0.874f, -0.383f, 0.458f, 0.124f, -0.221f, -0.107f }; int ldb = 3; ! float B_expected[] = { 0.0397932f, 0.0338757f, -0.0183441f, 0.0203484f, -0.0362661f, -0.0175587f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1662)"); } }; *************** *** 41,55 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.748f, 0.548f, 0.245f, 0.761f }; int lda = 2; ! float B[] = { 0.349f, -0.552f, -0.682f, -0.71f, 0.475f, -0.59f }; int ldb = 3; ! float B_expected[] = { -0.04008f, -0.2917f, -1.00532f, -0.71f, 0.475f, -0.59f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1671)"); } }; --- 41,55 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.195f, -0.453f, -0.579f, 0.697f }; int lda = 2; ! float B[] = { 0.736f, 0.131f, 0.533f, 0.692f, -0.672f, -0.435f }; int ldb = 3; ! float B_expected[] = { -0.126757f, -0.130625f, -0.219017f, -0.2076f, 0.2016f, 0.1305f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1663)"); } }; *************** *** 65,79 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.788f, 0.617f, -0.998f, -0.97f }; int lda = 2; ! float B[] = { -0.4f, 0.773f, 0.074f, -0.388f, 0.825f, -0.608f }; int ldb = 3; ! float B_expected[] = { -0.3152f, 0.609124f, 0.058312f, 0.77556f, -1.5717f, 0.515908f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1672)"); } }; --- 65,79 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.53f, 0.787f, 0.889f, -0.379f }; int lda = 2; ! float B[] = { -0.355f, 0.002f, 0.266f, 0.972f, 0.712f, -0.353f }; int ldb = 3; ! float B_expected[] = { -0.056445f, 3.18e-04f, 0.042294f, 0.205195f, 0.080421f, -0.111078f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1664)"); } }; *************** *** 89,103 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.01f, 0.387f, -0.953f, -0.374f }; int lda = 2; ! float B[] = { 0.364f, 0.09f, 0.588f, -0.263f, 0.584f, 0.463f }; int ldb = 3; ! float B_expected[] = { 0.364f, 0.09f, 0.588f, -0.609892f, 0.49823f, -0.097364f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1673)"); } }; --- 89,103 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.198f, -0.673f, 0.792f, 0.781f }; int lda = 2; ! float B[] = { 0.901f, 0.719f, -0.339f, -0.36f, 0.539f, 0.192f }; int ldb = 3; ! float B_expected[] = { -0.2703f, -0.2157f, 0.1017f, -0.106078f, -0.332534f, 0.0229464f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1665)"); } }; *************** *** 113,127 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.586f, -0.426f, 0.765f, -0.239f }; int lda = 2; ! float B[] = { -0.673f, -0.724f, 0.217f, -0.672f, -0.378f, -0.005f }; int ldb = 2; ! float B_expected[] = { -0.159482f, 0.173036f, -0.641242f, 0.160608f, 0.217683f, 0.001195f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1674)"); } }; --- 113,127 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.522f, 0.851f, 0.586f, 0.196f }; int lda = 2; ! float B[] = { 0.335f, 0.617f, 0.118f, -0.143f, 0.677f, 0.456f }; int ldb = 2; ! float B_expected[] = { -0.0560076f, -0.0362796f, 0.0436182f, 0.0084084f, 0.0258534f, -0.0268128f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1666)"); } }; *************** *** 137,151 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.668f, 0.962f, 0.515f, 0.292f }; int lda = 2; ! float B[] = { -0.145f, -0.337f, 0.718f, -0.866f, -0.454f, -0.439f }; int ldb = 2; ! float B_expected[] = { -0.318555f, -0.337f, 0.27201f, -0.866f, -0.680085f, -0.439f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1675)"); } }; --- 137,151 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.006f, -0.613f, -0.966f, -0.758f }; int lda = 2; ! float B[] = { 0.64f, -0.723f, -0.765f, 0.801f, 0.376f, 0.91f }; int ldb = 2; ! float B_expected[] = { -0.401525f, 0.2169f, 0.46163f, -0.2403f, 0.150918f, -0.273f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1667)"); } }; *************** *** 161,175 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.125f, -0.676f, 0.181f, 0.741f }; int lda = 2; ! float B[] = { 0.354f, -0.366f, 0.455f, 0.134f, -0.564f, -0.303f }; int ldb = 2; ! float B_expected[] = { -0.04425f, -0.51051f, -0.056875f, -0.208286f, 0.0705f, 0.156741f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1676)"); } }; --- 161,175 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.738f, 0.913f, -0.227f, 0.787f }; int lda = 2; ! float B[] = { 0.194f, 0.988f, -0.274f, -0.652f, -0.281f, -0.359f }; int ldb = 2; ! float B_expected[] = { -0.0429516f, -0.286403f, 0.0606636f, 0.228986f, 0.0622134f, 0.161726f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1668)"); } }; *************** *** 185,199 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.162f, 0.542f, -0.839f, -0.935f }; int lda = 2; ! float B[] = { 0.216f, 0.766f, -0.228f, -0.097f, 0.205f, 0.875f }; int ldb = 2; ! float B_expected[] = { 0.216f, 0.883072f, -0.228f, -0.220576f, 0.205f, 0.98611f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1677)"); } }; --- 185,199 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.952f, 0.598f, 0.25f, -0.508f }; int lda = 2; ! float B[] = { 0.036f, 0.745f, -0.606f, 0.215f, 0.943f, -0.933f }; int ldb = 2; ! float B_expected[] = { -0.0108f, -0.229958f, 0.1818f, 0.0442164f, -0.2829f, 0.110726f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1669)"); } }; *************** *** 209,223 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.353f, -0.854f, -0.502f, 0.591f, -0.934f, -0.729f, 0.063f, 0.352f, 0.126f }; int lda = 3; ! float B[] = { 0.2f, -0.626f, -0.694f, -0.889f, -0.251f, -0.42f }; int ldb = 3; ! float B_expected[] = { -0.0706f, 0.413884f, 0.26851f, 0.313817f, 0.99364f, 0.576337f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1678)"); } }; --- 209,223 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.251f, 0.372f, -0.168f, 0.217f, -0.179f, 0.863f, -0.057f, 0.256f, 0.093f }; int lda = 3; ! float B[] = { -0.727f, -0.461f, 0.162f, 0.579f, -0.305f, -0.735f }; int ldb = 3; ! float B_expected[] = { -0.0547431f, 0.0563775f, 0.0781923f, 0.0435987f, -0.0809949f, 0.128653f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1670)"); } }; *************** *** 233,247 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.864f, -0.046f, -0.755f, 0.12f, 0.525f, 0.917f, 0.571f, -0.098f, -0.226f }; int lda = 3; ! float B[] = { -0.905f, -0.296f, -0.927f, -0.813f, 0.624f, -0.366f }; int ldb = 3; ! float B_expected[] = { -0.905f, -0.25437f, -0.515157f, -0.813f, 0.661398f, 0.820023f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1679)"); } }; --- 233,247 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.014f, 0.204f, 0.163f, 0.842f, -0.918f, -0.748f, -0.859f, -0.463f, 0.292f }; int lda = 3; ! float B[] = { -0.587f, -0.625f, -0.994f, 0.681f, -0.577f, -0.434f }; int ldb = 3; ! float B_expected[] = { 0.1761f, 0.223424f, 0.186654f, -0.2043f, 0.131423f, -0.0325797f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1671)"); } }; *************** *** 257,271 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.69f, -0.927f, -0.281f, -0.918f, -0.527f, -0.652f, -0.393f, -0.954f, 0.651f }; int lda = 3; ! float B[] = { -0.587f, 0.788f, -0.629f, -0.444f, 0.515f, 0.081f }; int ldb = 3; ! float B_expected[] = { -0.071157f, 0.18479f, -0.409479f, -0.198243f, -0.348679f, 0.052731f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1680)"); } }; --- 257,271 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.682f, -0.71f, 0.475f, -0.59f, -0.748f, 0.548f, 0.245f, 0.761f, -0.4f }; int lda = 3; ! float B[] = { 0.565f, 0.967f, -0.969f, 0.184f, 0.349f, -0.552f }; int ldb = 3; ! float B_expected[] = { 0.357979f, 0.438217f, -0.11628f, 0.139991f, 0.204337f, -0.06624f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1672)"); } }; *************** *** 281,295 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.082f, -0.077f, 0.811f, 0.852f, 0.224f, 0.443f, -0.509f, 0.171f, 0.986f }; int lda = 3; ! float B[] = { -0.982f, 0.388f, -0.493f, -0.497f, -0.605f, 0.433f }; int ldb = 3; ! float B_expected[] = { -0.400487f, 0.303697f, -0.493f, -1.23286f, -0.530957f, 0.433f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1681)"); } }; --- 281,295 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.617f, -0.998f, -0.97f, 0.364f, 0.09f, 0.588f, -0.263f, 0.584f, 0.463f }; int lda = 3; ! float B[] = { 0.773f, 0.074f, -0.388f, 0.825f, -0.608f, 0.788f }; int ldb = 3; ! float B_expected[] = { -0.270594f, 0.0457776f, 0.1164f, -0.118933f, 0.0443424f, -0.2364f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1673)"); } }; *************** *** 305,319 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.97f, -0.666f, 0.066f, -0.176f, 0.402f, 0.286f, -0.703f, 0.962f, 0.912f }; int lda = 3; ! float B[] = { -0.644f, -0.97f, 0.814f, -0.777f, 0.812f, 0.254f }; int ldb = 2; ! float B_expected[] = { -0.62468f, -0.9409f, 0.440572f, -0.141634f, 1.97634f, 0.166084f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1682)"); } }; --- 305,319 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.217f, -0.672f, -0.378f, -0.005f, -0.586f, -0.426f, 0.765f, -0.239f, -0.145f }; int lda = 3; ! float B[] = { 0.01f, 0.387f, -0.953f, -0.374f, -0.673f, -0.724f }; int ldb = 2; ! float B_expected[] = { -6.51e-04f, -0.0251937f, -0.167522f, -0.0651687f, -0.0999006f, -0.147126f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1674)"); } }; *************** *** 329,343 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.714f, 0.468f, 0.859f, -0.547f, 0.076f, 0.542f, 0.512f, -0.987f, -0.167f }; int lda = 3; ! float B[] = { -0.238f, -0.336f, 0.402f, 0.945f, -0.242f, -0.062f }; int ldb = 2; ! float B_expected[] = { -0.238f, -0.336f, 0.532186f, 1.12879f, -0.76063f, -1.16675f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1683)"); } }; --- 329,343 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.962f, 0.515f, 0.292f, 0.354f, -0.366f, 0.455f, 0.134f, -0.564f, -0.303f }; int lda = 3; ! float B[] = { -0.337f, 0.718f, -0.866f, -0.454f, -0.439f, -0.668f }; int ldb = 2; ! float B_expected[] = { 0.1011f, -0.2154f, 0.295589f, 0.0599484f, -0.0012798f, 0.0947196f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1675)"); } }; *************** *** 353,367 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.723f, 0.041f, 0.333f, -0.682f, 0.193f, 0.581f, 0.963f, -0.757f, 0.396f }; int lda = 3; ! float B[] = { 0.047f, -0.701f, -0.25f, -0.779f, 0.435f, 0.612f }; int ldb = 2; ! float B_expected[] = { 0.100624f, 0.67868f, 0.204485f, 0.205225f, 0.17226f, 0.242352f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1684)"); } }; --- 353,367 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.228f, -0.097f, 0.205f, 0.875f, -0.162f, 0.542f, -0.839f, -0.935f, 0.2f }; int lda = 3; ! float B[] = { -0.125f, -0.676f, 0.181f, 0.741f, 0.216f, 0.766f }; int ldb = 2; ! float B_expected[] = { -0.0165669f, -0.0717843f, -0.026325f, -0.088539f, -0.01296f, -0.04596f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1676)"); } }; *************** *** 377,391 **** int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.13f, 0.511f, -0.544f, 0.938f, -0.126f, -0.873f, 0.118f, -0.75f, 0.674f }; int lda = 3; ! float B[] = { -0.927f, -0.558f, -0.289f, -0.66f, 0.83f, 0.363f }; int ldb = 2; ! float B_expected[] = { -1.5262f, -1.09273f, -1.01359f, -0.976899f, 0.83f, 0.363f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1685)"); } }; --- 377,391 ---- int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.854f, -0.502f, 0.591f, -0.934f, -0.729f, 0.063f, 0.352f, 0.126f, -0.905f }; int lda = 3; ! float B[] = { -0.626f, -0.694f, -0.889f, -0.251f, -0.42f, -0.353f }; int ldb = 2; ! float B_expected[] = { 0.128383f, 0.232986f, 0.274638f, 0.0819717f, 0.126f, 0.1059f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1677)"); } }; *************** *** 402,415 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.625f, -0.123f, -0.48f, -0.088f }; int lda = 2; ! float B[] = { 0.376f, -0.46f, -0.813f, 0.419f, 0.792f, 0.226f }; int ldb = 3; ! float B_expected[] = { -0.0235f, 0.02875f, 0.0508125f, -0.008312f, -0.0013116f, 0.0080111f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1686)"); } }; --- 402,415 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.755f, 0.12f, 0.525f, 0.917f }; int lda = 2; ! float B[] = { -0.927f, -0.813f, 0.624f, -0.366f, -0.864f, -0.046f }; int ldb = 3; ! float B_expected[] = { 0.0699885f, 0.0613815f, -0.047112f, -0.0446862f, -0.0889848f, 0.0032698f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1678)"); } }; *************** *** 426,439 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.038f, -0.105f, -0.946f, 0.474f }; int lda = 2; ! float B[] = { -0.757f, 0.974f, -0.045f, -0.809f, 0.654f, 0.611f }; int ldb = 3; ! float B_expected[] = { -0.0757f, 0.0974f, -0.0045f, -0.0729515f, 0.055173f, 0.0615725f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1687)"); } }; --- 426,439 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.444f, 0.515f, 0.081f, -0.69f }; int lda = 2; ! float B[] = { 0.571f, -0.098f, -0.226f, -0.587f, 0.788f, -0.629f }; int ldb = 3; ! float B_expected[] = { 0.0571f, -0.0098f, -0.0226f, -0.0292935f, 0.073753f, -0.074539f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1679)"); } }; *************** *** 450,463 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.328f, 0.713f, 0.781f, 0.084f }; int lda = 2; ! float B[] = { -0.097f, 0.442f, -0.563f, 0.065f, -0.18f, 0.63f }; int ldb = 3; ! float B_expected[] = { 0.0082581f, -0.0285556f, 0.0676694f, 5.46e-04f, -0.001512f, 0.005292f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1688)"); } }; --- 450,463 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.954f, 0.651f, -0.982f, 0.388f }; int lda = 2; ! float B[] = { -0.927f, -0.281f, -0.918f, -0.527f, -0.652f, -0.393f }; int ldb = 3; ! float B_expected[] = { 0.140187f, 0.0908338f, 0.12617f, -0.0204476f, -0.0252976f, -0.0152484f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1680)"); } }; *************** *** 474,487 **** int N = 3; float alpha = 0.1f; ! float A[] = { 0.261f, -0.659f, -0.536f, 0.694f }; int lda = 2; ! float B[] = { -0.498f, 0.692f, 0.125f, 0.706f, -0.118f, -0.907f }; int ldb = 3; ! float B_expected[] = { -0.0876416f, 0.0755248f, 0.0611152f, 0.0706f, -0.0118f, -0.0907f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1689)"); } }; --- 474,487 ---- int N = 3; float alpha = 0.1f; ! float A[] = { 0.811f, 0.852f, 0.224f, 0.443f }; int lda = 2; ! float B[] = { -0.493f, -0.497f, -0.605f, 0.433f, -0.082f, -0.077f }; int ldb = 3; ! float B_expected[] = { -0.0396008f, -0.0515368f, -0.0622248f, 0.0433f, -0.0082f, -0.0077f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1681)"); } }; *************** *** 498,511 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.669f, 0.416f, 0.761f, -0.359f }; int lda = 2; ! float B[] = { -0.305f, -0.675f, -0.442f, 0.566f, 0.064f, 0.962f }; int ldb = 2; ! float B_expected[] = { 0.0204045f, 0.001022f, 0.0295698f, -0.0539556f, -0.0042816f, -0.0296654f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1690)"); } }; --- 498,511 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.777f, 0.812f, 0.254f, 0.97f }; int lda = 2; ! float B[] = { -0.509f, 0.171f, 0.986f, -0.644f, -0.97f, 0.814f }; int ldb = 2; ! float B_expected[] = { 0.0395493f, 0.0036584f, -0.0766122f, -0.0374236f, 0.075369f, 0.05432f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1682)"); } }; *************** *** 522,535 **** int N = 3; float alpha = 0.1f; ! float A[] = { 0.565f, 0.386f, 0.643f, -0.028f }; int lda = 2; ! float B[] = { 0.863f, -0.241f, 0.766f, 0.656f, -0.977f, 0.274f }; int ldb = 2; ! float B_expected[] = { 0.0863f, 0.0313909f, 0.0766f, 0.114854f, -0.0977f, -0.0354211f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1691)"); } }; --- 522,535 ---- int N = 3; float alpha = 0.1f; ! float A[] = { 0.962f, 0.912f, -0.238f, -0.336f }; int lda = 2; ! float B[] = { -0.666f, 0.066f, -0.176f, 0.402f, 0.286f, -0.703f }; int ldb = 2; ! float B_expected[] = { -0.0666f, 0.0224508f, -0.0176f, 0.0443888f, 0.0286f, -0.0771068f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1683)"); } }; *************** *** 546,559 **** int N = 3; float alpha = 0.1f; ! float A[] = { 0.116f, 0.534f, 0.043f, 0.73f }; int lda = 2; ! float B[] = { -0.758f, -0.63f, -0.043f, 0.666f, -0.088f, 0.382f }; int ldb = 2; ! float B_expected[] = { -0.0424348f, -0.04599f, 0.0350656f, 0.048618f, 0.019378f, 0.027886f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1692)"); } }; --- 546,559 ---- int N = 3; float alpha = 0.1f; ! float A[] = { 0.859f, -0.547f, 0.076f, 0.542f }; int lda = 2; ! float B[] = { 0.402f, 0.945f, -0.242f, -0.062f, 0.714f, 0.468f }; int ldb = 2; ! float B_expected[] = { -0.0171597f, 0.051219f, -0.0173964f, -0.0033604f, 0.035733f, 0.0253656f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1684)"); } }; *************** *** 570,583 **** int N = 3; float alpha = 0.1f; ! float A[] = { 0.48f, -0.63f, -0.786f, -0.437f }; int lda = 2; ! float B[] = { 0.945f, 0.528f, -0.855f, -0.587f, 0.062f, 0.372f }; int ldb = 2; ! float B_expected[] = { 0.061236f, 0.0528f, -0.048519f, -0.0587f, -0.017236f, 0.0372f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1693)"); } }; --- 570,583 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.779f, 0.435f, 0.612f, -0.723f }; int lda = 2; ! float B[] = { 0.512f, -0.987f, -0.167f, 0.047f, -0.701f, -0.25f }; int ldb = 2; ! float B_expected[] = { 0.0082655f, -0.0987f, -0.0146555f, 0.0047f, -0.080975f, -0.025f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1685)"); } }; *************** *** 594,607 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.822f, -0.068f, 0.119f, -0.244f, -0.05f, 0.685f, 0.752f, -0.059f, -0.935f }; int lda = 3; ! float B[] = { -0.431f, -0.753f, -0.319f, 0.164f, 0.979f, 0.885f }; int ldb = 3; ! float B_expected[] = { 0.0367525f, -0.0180865f, 0.0298265f, -0.0096065f, 0.0557275f, -0.0827475f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1694)"); } }; --- 594,607 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.757f, 0.396f, -0.927f, -0.558f, -0.289f, -0.66f, 0.83f, 0.363f, -0.13f }; int lda = 3; ! float B[] = { 0.041f, 0.333f, -0.682f, 0.193f, 0.581f, 0.963f }; int ldb = 3; ! float B_expected[] = { 0.0733045f, 0.0353883f, 0.008866f, -0.0808726f, -0.0803489f, -0.012519f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1686)"); } }; *************** *** 618,631 **** int N = 3; float alpha = 0.1f; ! float A[] = { 0.97f, -0.408f, 0.174f, -0.308f, 0.997f, -0.484f, 0.322f, -0.183f, 0.849f }; int lda = 3; ! float B[] = { -0.571f, 0.696f, -0.256f, -0.178f, 0.098f, 0.004f }; int ldb = 3; ! float B_expected[] = { -0.0899512f, 0.0819904f, -0.0256f, -0.0217288f, 0.0096064f, 4.0e-04f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1695)"); } }; --- 618,631 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.75f, 0.674f, -0.576f, 0.376f, -0.46f, -0.813f, 0.419f, 0.792f, 0.226f }; int lda = 3; ! float B[] = { 0.511f, -0.544f, 0.938f, -0.126f, -0.873f, 0.118f }; int ldb = 3; ! float B_expected[] = { -0.0395944f, -0.130659f, 0.0938f, -0.078237f, -0.0968934f, 0.0118f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1687)"); } }; *************** *** 642,655 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.831f, 0.73f, 0.407f, 0.721f, 0.086f, -0.294f, 0.941f, -0.656f, -0.066f }; int lda = 3; ! float B[] = { -0.051f, -0.343f, -0.98f, 0.722f, -0.372f, 0.466f }; int ldb = 3; ! float B_expected[] = { 0.0042381f, -0.0066269f, 0.0241697f, -0.0599982f, 0.048857f, 0.0892678f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1696)"); } }; --- 642,655 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.045f, -0.809f, 0.654f, 0.611f, -0.038f, -0.105f, -0.946f, 0.474f, -0.097f }; int lda = 3; ! float B[] = { -0.625f, -0.123f, -0.48f, -0.088f, -0.757f, 0.974f }; int ldb = 3; ! float B_expected[] = { 0.0028125f, -0.0377201f, 0.0579508f, 3.96e-04f, -0.0025002f, -0.0370048f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1688)"); } }; *************** *** 666,679 **** int N = 3; float alpha = 0.1f; ! float A[] = { 0.472f, 0.137f, -0.341f, 0.386f, -0.578f, 0.863f, -0.415f, -0.547f, -0.023f }; int lda = 3; ! float B[] = { 0.582f, 0.141f, -0.306f, -0.047f, -0.162f, -0.784f }; int ldb = 3; ! float B_expected[] = { 0.0582f, 0.0365652f, -0.0624657f, -0.0047f, -0.0180142f, -0.0675881f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1697)"); } }; --- 666,679 ---- int N = 3; float alpha = 0.1f; ! float A[] = { 0.713f, 0.781f, 0.084f, -0.498f, 0.692f, 0.125f, 0.706f, -0.118f, -0.907f }; int lda = 3; ! float B[] = { 0.442f, -0.563f, 0.065f, -0.18f, 0.63f, -0.328f }; int ldb = 3; ! float B_expected[] = { 0.0442f, -0.0783116f, 0.0443486f, -0.018f, 0.071964f, -0.052942f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1689)"); } }; *************** *** 690,703 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.775f, 0.762f, -0.038f, -0.8f, 0.626f, -0.701f, 0.639f, 0.239f, 0.34f }; int lda = 3; ! float B[] = { 0.42f, 0.917f, 0.485f, 0.844f, -0.832f, 0.179f }; int ldb = 2; ! float B_expected[] = { -0.124515f, -0.127149f, 0.0104762f, 0.0571125f, -0.028288f, 0.006086f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1698)"); } }; --- 690,703 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.442f, 0.566f, 0.064f, 0.962f, -0.669f, 0.416f, 0.761f, -0.359f, 0.863f }; int lda = 3; ! float B[] = { 0.261f, -0.659f, -0.536f, 0.694f, -0.305f, -0.675f }; int ldb = 2; ! float B_expected[] = { -0.0863099f, 0.0445231f, 0.0468079f, -0.0221961f, -0.0263215f, -0.0582525f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1690)"); } }; *************** *** 714,727 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.675f, 0.283f, 0.785f, -0.0f, -0.592f, -0.661f, 0.149f, -0.129f, 0.149f }; int lda = 3; ! float B[] = { 0.964f, -0.575f, -0.215f, 0.953f, 0.527f, -0.418f }; int ldb = 2; ! float B_expected[] = { 0.104252f, -0.0637282f, -0.0282983f, 0.100692f, 0.0527f, -0.0418f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1699)"); } }; --- 714,727 ---- int N = 3; float alpha = 0.1f; ! float A[] = { 0.386f, 0.643f, -0.028f, -0.758f, -0.63f, -0.043f, 0.666f, -0.088f, 0.382f }; int lda = 3; ! float B[] = { -0.241f, 0.766f, 0.656f, -0.977f, 0.274f, 0.565f }; int ldb = 2; ! float B_expected[] = { -0.0555764f, 0.188286f, 0.0631888f, -0.102672f, 0.0274f, 0.0565f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1691)"); } }; *************** *** 738,751 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.225f, -0.943f, 0.839f, 0.759f, 0.752f, 0.807f, 0.288f, -0.276f, 0.434f }; int lda = 3; ! float B[] = { -0.234f, 0.275f, 0.658f, -0.423f, -0.807f, -0.683f }; int ldb = 2; ! float B_expected[] = { 0.005265f, -0.0061875f, 0.0715478f, -0.0577421f, -0.0015558f, -0.0407058f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1700)"); } }; --- 738,751 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.855f, -0.587f, 0.062f, 0.372f, 0.48f, -0.63f, -0.786f, -0.437f, -0.431f }; int lda = 3; ! float B[] = { 0.116f, 0.534f, 0.043f, 0.73f, 0.945f, 0.528f }; int ldb = 2; ! float B_expected[] = { -0.009918f, -0.045657f, -0.0047452f, 0.0036942f, -0.0427193f, -0.065436f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1692)"); } }; *************** *** 762,775 **** int N = 3; float alpha = 0.1f; ! float A[] = { -0.043f, -0.983f, 0.479f, -0.136f, 0.048f, 0.745f, -0.408f, -0.731f, -0.953f }; int lda = 3; ! float B[] = { 0.917f, 0.682f, -0.32f, 0.557f, -0.302f, 0.989f }; int ldb = 2; ! float B_expected[] = { 0.0917f, 0.0682f, -0.122141f, -0.0113406f, -0.0101157f, 0.173064f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1701)"); } }; --- 762,775 ---- int N = 3; float alpha = 0.1f; ! float A[] = { -0.068f, 0.119f, -0.244f, -0.05f, 0.685f, 0.752f, -0.059f, -0.935f, -0.571f }; int lda = 3; ! float B[] = { -0.753f, -0.319f, 0.164f, 0.979f, 0.885f, -0.822f }; int ldb = 2; ! float B_expected[] = { -0.0753f, -0.0319f, 0.0074393f, 0.0941039f, 0.119206f, -7.956e-04f }; cblas_strmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strmm(case 1693)"); } }; *************** *** 785,799 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.561, -0.114, -0.148, 0.488 }; int lda = 2; ! double B[] = { 0.684, 0.38, 0.419, -0.361, 0.378, -0.423 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1702)"); } }; --- 785,799 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.174, -0.308, 0.997, -0.484 }; int lda = 2; ! double B[] = { -0.256, -0.178, 0.098, 0.004, 0.97, -0.408 }; int ldb = 3; ! double B_expected[] = { 0.0137328, 0.0989196, -0.0428148, 5.808e-04, 0.140844, -0.0592416 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1694)"); } }; *************** *** 809,823 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.378, 0.607, 0.41, 0.418 }; int lda = 2; ! double B[] = { 0.146, -0.688, -0.953, -0.983, 0.237, 0.128 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1703)"); } }; --- 809,823 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.722, -0.372, 0.466, -0.831 }; int lda = 2; ! double B[] = { 0.322, -0.183, 0.849, -0.051, -0.343, -0.98 }; int ldb = 3; ! double B_expected[] = { -0.1022916, 0.0166212, -0.364068, 0.0153, 0.1029, 0.294 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1695)"); } }; *************** *** 833,847 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.31, 0.277, -0.587, 0.885 }; int lda = 2; ! double B[] = { -0.221, -0.831, -0.319, -0.547, -0.577, 0.295 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1704)"); } }; --- 833,847 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.656, -0.066, 0.582, 0.141 }; int lda = 2; ! double B[] = { 0.73, 0.407, 0.721, 0.086, -0.294, 0.941 }; int ldb = 3; ! double B_expected[] = { 0.143664, 0.0800976, 0.1418928, -0.1310958, -0.058626, -0.1656909 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1696)"); } }; *************** *** 857,871 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.577, 0.861, -0.439, -0.916 }; int lda = 2; ! double B[] = { -0.933, -0.582, 0.528, 0.268, -0.804, 0.62 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1705)"); } }; --- 857,871 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.341, 0.386, -0.578, 0.863 }; int lda = 2; ! double B[] = { -0.306, -0.047, -0.162, -0.784, 0.472, 0.137 }; int ldb = 3; ! double B_expected[] = { 0.0918, 0.0141, 0.0486, 0.1821396, -0.1497498, -0.0691908 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1697)"); } }; *************** *** 881,895 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.824, -0.119, -0.399, -0.653 }; int lda = 2; ! double B[] = { 0.452, -0.168, 0.256, 0.554, 0.342, 0.318 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1706)"); } }; --- 881,895 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.844, -0.832, 0.179, -0.775 }; int lda = 2; ! double B[] = { -0.415, -0.547, -0.023, 0.42, 0.917, 0.485 }; int ldb = 2; ! double B_expected[] = { 0.1344519, -0.1271775, -0.0167304, 0.09765, -0.2582289, 0.1127625 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1698)"); } }; *************** *** 905,919 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.299, 0.837, -0.03, 0.552 }; int lda = 2; ! double B[] = { -0.83, -0.82, -0.362, -0.252, -0.062, -0.942 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1707)"); } }; --- 905,919 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.239, 0.34, 0.964, -0.575 }; int lda = 2; ! double B[] = { 0.762, -0.038, -0.8, 0.626, -0.701, 0.639 }; int ldb = 2; ! double B_expected[] = { -0.2176104, 0.0114, 0.0589608, -0.1878, 0.0255012, -0.1917 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1699)"); } }; *************** *** 929,943 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.545, -0.107, 0.096, 0.183 }; int lda = 2; ! double B[] = { -0.43, 0.841, 0.035, 0.7, 0.637, 0.095 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1708)"); } }; --- 929,943 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.785, -0.0, -0.592, -0.661 }; int lda = 2; ! double B[] = { -0.215, 0.953, 0.527, -0.418, -0.675, 0.283 }; int ldb = 2; ! double B_expected[] = { 0.0506325, 0.1889799, -0.1241085, -0.0828894, 0.1589625, 0.0561189 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1700)"); } }; *************** *** 953,967 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.626, 0.123, -0.959, 0.971 }; int lda = 2; ! double B[] = { 0.185, -0.218, -0.074, 0.49, 0.802, -0.454 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1709)"); } }; --- 953,967 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.423, -0.807, -0.683, -0.225 }; int lda = 2; ! double B[] = { 0.149, -0.129, 0.149, -0.234, 0.275, 0.658 }; int ldb = 2; ! double B_expected[] = { -0.0447, 0.0747729, -0.0447, 0.1062729, -0.0825, -0.1308225 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1701)"); } }; *************** *** 977,991 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.131, 0.048, 0.148, 0.834, -0.98, -0.009, -0.727, 0.241, 0.276 }; int lda = 3; ! double B[] = { 0.75, -0.664, -0.136, -0.793, -0.742, 0.126 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1710)"); } }; --- 977,991 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.276, 0.434, 0.917, 0.682, -0.32, 0.557, -0.302, 0.989, -0.043 }; int lda = 3; ! double B[] = { -0.943, 0.839, 0.759, 0.752, 0.807, 0.288 }; int ldb = 3; ! double B_expected[] = { -0.0780804, 0.2033226, 0.1290135, 0.0622656, -0.0204384, -0.3380097 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1702)"); } }; *************** *** 1001,1015 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.431, -0.387, 0.427, 0.495, 0.282, 0.158, -0.335, 0.535, -0.978 }; int lda = 3; ! double B[] = { 0.518, -0.489, 0.899, -0.375, 0.376, -0.831 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1711)"); } }; --- 1001,1015 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.731, -0.953, -0.666, 0.684, 0.38, 0.419, -0.361, 0.378, -0.423 }; int lda = 3; ! double B[] = { -0.983, 0.479, -0.136, 0.048, 0.745, -0.408 }; int ldb = 3; ! double B_expected[] = { 0.2949, -0.4247397, -0.2158137, -0.0144, -0.2097768, 0.0383439 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1703)"); } }; *************** *** 1025,1039 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.669, -0.976, -0.2, 0.661, -0.975, -0.965, -0.861, -0.779, -0.73 }; int lda = 3; ! double B[] = { 0.31, 0.023, -0.853, 0.632, -0.174, 0.608 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1712)"); } }; --- 1025,1039 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.953, -0.983, 0.237, 0.128, -0.378, 0.607, 0.41, 0.418, -0.221 }; int lda = 3; ! double B[] = { -0.561, -0.114, -0.148, 0.488, 0.146, -0.688 }; int ldb = 3; ! double B_expected[] = { -0.1378083, 0.0056316, -0.0098124, 0.2185368, 0.1028316, -0.0456144 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1704)"); } }; *************** *** 1049,1063 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.153, -0.408, -0.127, -0.634, -0.384, -0.815, 0.051, -0.096, 0.476 }; int lda = 3; ! double B[] = { 0.343, -0.665, -0.348, 0.748, 0.893, 0.91 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1713)"); } }; --- 1049,1063 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.277, -0.587, 0.885, -0.933, -0.582, 0.528, 0.268, -0.804, 0.62 }; int lda = 3; ! double B[] = { -0.831, -0.319, -0.547, -0.577, 0.295, -0.31 }; int ldb = 3; ! double B_expected[] = { 0.2039907, -0.0362364, 0.1641, 0.2805945, -0.163272, 0.093 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1705)"); } }; *************** *** 1073,1087 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.918, -0.19, 0.829, 0.942, 0.885, 0.087, 0.321, 0.67, -0.475 }; int lda = 3; ! double B[] = { 0.377, 0.931, 0.291, -0.603, -0.617, 0.402 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1714)"); } }; --- 1073,1087 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.256, 0.554, 0.342, 0.318, -0.824, -0.119, -0.399, -0.653, -0.83 }; int lda = 3; ! double B[] = { -0.577, 0.861, -0.439, -0.916, 0.452, -0.168 }; int ldb = 2; ! double B_expected[] = { 0.0443136, -0.0661248, -0.053475, -0.3085746, -0.042519, -0.1182147 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1706)"); } }; *************** *** 1097,1111 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.598, -0.232, -0.64, 0.595, 0.642, -0.921, -0.679, -0.846, -0.921 }; int lda = 3; ! double B[] = { 0.032, -0.036, -0.278, -0.83, 0.922, -0.701 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1715)"); } }; --- 1097,1111 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.837, -0.03, 0.552, -0.43, 0.841, 0.035, 0.7, 0.637, 0.095 }; int lda = 3; ! double B[] = { -0.82, -0.362, -0.252, -0.062, -0.942, -0.299 }; int ldb = 2; ! double B_expected[] = { 0.246, 0.1086, -0.03018, -0.028098, 0.5029572, 0.1775682 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1707)"); } }; *************** *** 1121,1135 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.341, -0.858, -0.559, 0.499, -0.114, 0.57, 0.847, -0.612, 0.593 }; int lda = 3; ! double B[] = { 0.672, 0.292, 0.752, 0.842, 0.625, 0.967 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1716)"); } }; --- 1121,1135 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { -0.074, 0.49, 0.802, -0.454, 0.626, 0.123, -0.959, 0.971, 0.75 }; int lda = 3; ! double B[] = { -0.545, -0.107, 0.096, 0.183, 0.185, -0.218 }; int ldb = 2; ! double B_expected[] = { -0.070722, 0.0231744, -0.0248553, -0.0263232, -0.041625, 0.04905 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1708)"); } }; *************** *** 1145,1159 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.958, 0.823, -0.181, 0.141, 0.932, 0.097, -0.636, 0.844, 0.205 }; int lda = 3; ! double B[] = { 0.113, -0.658, 0.703, -0.023, -0.384, 0.439 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1717)"); } }; --- 1145,1159 ---- int M = 2; int N = 3; ! double alpha = -0.3; ! double A[] = { 0.048, 0.148, 0.834, -0.98, -0.009, -0.727, 0.241, 0.276, 0.518 }; int lda = 3; ! double B[] = { -0.664, -0.136, -0.793, -0.742, 0.126, -0.131 }; int ldb = 2; ! double B_expected[] = { 0.202884, 0.106521, 0.2653806, 0.1940289, -0.0378, 0.0393 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1709)"); } }; *************** *** 1169,1183 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.675, -0.468, -0.564, 0.71 }; int lda = 2; ! double B[] = { -0.401, -0.823, 0.342, -0.384, 0.344, 0.18 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1718)"); } }; --- 1169,1183 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.427, 0.495, 0.282, 0.158 }; int lda = 2; ! double B[] = { 0.899, -0.375, 0.376, -0.831, 0.431, -0.387 }; int ldb = 3; ! double B_expected[] = { 0.0383873, -0.0160125, 0.0160552, 0.0313707, -0.0117527, 0.0124974 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1710)"); } }; *************** *** 1193,1207 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.932, -0.388, 0.432, -0.167 }; int lda = 2; ! double B[] = { -0.624, 0.023, 0.065, 0.678, 0.044, -0.472 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1719)"); } }; --- 1193,1207 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.632, -0.174, 0.608, -0.669 }; int lda = 2; ! double B[] = { -0.335, 0.535, -0.978, 0.31, 0.023, -0.853 }; int ldb = 3; ! double B_expected[] = { -0.0335, 0.0535, -0.0978, 0.036829, -0.007009, -0.0682828 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1711)"); } }; *************** *** 1217,1231 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.738, 0.649, -0.171, -0.462 }; int lda = 2; ! double B[] = { -0.277, -0.519, -0.501, -0.024, -0.767, -0.591 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1720)"); } }; --- 1217,1231 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.779, -0.73, 0.343, -0.665 }; int lda = 2; ! double B[] = { -0.976, -0.2, 0.661, -0.975, -0.965, -0.861 }; int ldb = 3; ! double B_expected[] = { 0.0425879, -0.0175195, -0.0810242, 0.0648375, 0.0641725, 0.0572565 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1712)"); } }; *************** *** 1241,1255 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.17, -0.184, -0.243, 0.907 }; int lda = 2; ! double B[] = { 0.593, 0.131, -0.317, -0.254, -0.948, 0.002 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1721)"); } }; --- 1241,1255 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.127, -0.634, -0.384, -0.815 }; int lda = 2; ! double B[] = { -0.348, 0.748, 0.893, 0.91, 0.153, -0.408 }; int ldb = 3; ! double B_expected[] = { -0.069744, 0.0689248, 0.1049672, 0.091, 0.0153, -0.0408 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1713)"); } }; *************** *** 1265,1279 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.06, -0.838, -0.455, -0.715 }; int lda = 2; ! double B[] = { -0.423, 0.665, -0.023, -0.872, -0.313, -0.698 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1722)"); } }; --- 1265,1279 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.603, -0.617, 0.402, -0.918 }; int lda = 2; ! double B[] = { 0.051, -0.096, 0.476, 0.377, 0.931, 0.291 }; int ldb = 2; ! double B_expected[] = { -0.0030753, 0.010863, -0.0287028, -0.0154734, -0.0561393, 0.0107124 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1714)"); } }; *************** *** 1289,1303 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.506, 0.792, 0.338, -0.155 }; int lda = 2; ! double B[] = { -0.257, -0.19, 0.201, 0.685, 0.663, 0.302 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1723)"); } }; --- 1289,1303 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.67, -0.475, 0.032, -0.036 }; int lda = 2; ! double B[] = { -0.19, 0.829, 0.942, 0.885, 0.087, 0.321 }; int ldb = 2; ! double B_expected[] = { -0.019, 0.082292, 0.0942, 0.0915144, 0.0087, 0.0323784 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1715)"); } }; *************** *** 1313,1327 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.739, -0.996, 0.182, 0.626 }; int lda = 2; ! double B[] = { 0.009, 0.485, -0.633, -0.08, -0.579, 0.223 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1724)"); } }; --- 1313,1327 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.64, 0.595, 0.642, -0.921 }; int lda = 2; ! double B[] = { -0.278, -0.83, 0.922, -0.701, -0.598, -0.232 }; int ldb = 2; ! double B_expected[] = { -0.031593, 0.076443, -0.1007175, 0.0645621, 0.024468, 0.0213672 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1716)"); } }; *************** *** 1337,1351 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.777, 0.723, 0.378, 0.98 }; int lda = 2; ! double B[] = { 0.291, -0.267, -0.076, 0.103, -0.021, -0.866 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1725)"); } }; --- 1337,1351 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.842, 0.625, 0.967, 0.341 }; int lda = 2; ! double B[] = { -0.679, -0.846, -0.921, 0.672, 0.292, 0.752 }; int ldb = 2; ! double B_expected[] = { -0.120775, -0.0846, -0.0501, 0.0672, 0.0762, 0.0752 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1717)"); } }; *************** *** 1361,1375 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.771, 0.469, 0.822, -0.619, 0.953, -0.706, 0.318, 0.559, -0.68 }; int lda = 3; ! double B[] = { -0.32, 0.362, 0.719, -0.661, -0.504, 0.595 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1726)"); } }; --- 1361,1375 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.612, 0.593, 0.113, -0.658, 0.703, -0.023, -0.384, 0.439, 0.958 }; int lda = 3; ! double B[] = { -0.858, -0.559, 0.499, -0.114, 0.57, 0.847 }; int ldb = 3; ! double B_expected[] = { 0.0249996, -0.0404454, 0.0478042, 0.0503489, 0.0381229, 0.0811426 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1718)"); } }; *************** *** 1385,1399 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.073, -0.501, -0.561, -0.229, -0.533, -0.138, 0.924, -0.164, -0.023 }; int lda = 3; ! double B[] = { -0.208, 0.49, 0.827, 0.641, -0.884, -0.624 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1727)"); } }; --- 1385,1399 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.844, 0.205, -0.692, -0.401, -0.823, 0.342, -0.384, 0.344, 0.18 }; int lda = 3; ! double B[] = { 0.823, -0.181, 0.141, 0.932, 0.097, -0.636 }; int ldb = 3; ! double B_expected[] = { 0.0688323, -0.0132778, 0.0141, 0.1391997, -0.0120512, -0.0636 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1719)"); } }; *************** *** 1409,1423 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.33, -0.649, -0.43, -0.266, 0.787, 0.449, 0.435, -0.774, -0.447 }; int lda = 3; ! double B[] = { -0.687, -0.459, 0.189, 0.762, -0.039, 0.047 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1728)"); } }; --- 1409,1423 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.065, 0.678, 0.044, -0.472, 0.932, -0.388, 0.432, -0.167, -0.277 }; int lda = 3; ! double B[] = { 0.675, -0.468, -0.564, 0.71, -0.624, 0.023 }; int ldb = 3; ! double B_expected[] = { 0.0043875, -0.0754776, 0.0525984, 0.004615, -0.0916688, 0.0404557 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1720)"); } }; *************** *** 1433,1447 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { 0.981, 0.242, 0.581, 0.064, 0.792, -0.529, 0.461, 0.224, -0.419 }; int lda = 3; ! double B[] = { 0.285, 0.274, -0.912, 0.601, 0.24, 0.06 }; int ldb = 3; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1729)"); } }; --- 1433,1447 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.649, -0.171, -0.462, 0.593, 0.131, -0.317, -0.254, -0.948, 0.002 }; int lda = 3; ! double B[] = { -0.519, -0.501, -0.024, -0.767, -0.591, -0.738 }; int ldb = 3; ! double B_expected[] = { -0.0519, -0.0808767, 0.0582774, -0.0767, -0.1045831, 0.0017086 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1721)"); } }; *************** *** 1457,1471 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.582, 0.269, -0.587, 0.68, -0.59, -0.936, 0.236, -0.728, -0.434 }; int lda = 3; ! double B[] = { 0.113, 0.468, 0.943, 0.48, 0.215, -0.525 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1730)"); } }; --- 1457,1471 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.023, -0.872, -0.313, -0.698, 0.06, -0.838, -0.455, -0.715, -0.257 }; int lda = 3; ! double B[] = { -0.17, -0.184, -0.243, 0.907, -0.423, 0.665 }; int ldb = 2; ! double B_expected[] = { 0.0365989, -0.0931429, 0.0287865, -0.0421055, 0.0108711, -0.0170905 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1722)"); } }; *************** *** 1481,1495 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.344, -0.938, 0.556, -0.678, -0.612, -0.519, -0.578, -0.848, 0.699 }; int lda = 3; ! double B[] = { 0.915, -0.118, 0.538, -0.186, -0.413, -0.216 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1731)"); } }; --- 1481,1495 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.792, 0.338, -0.155, 0.009, 0.485, -0.633, -0.08, -0.579, 0.223 }; int lda = 3; ! double B[] = { -0.19, 0.201, 0.685, 0.663, 0.302, -0.506 }; int ldb = 2; ! double B_expected[] = { -0.0207995, 0.0247447, 0.0510142, 0.0955974, 0.0302, -0.0506 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1723)"); } }; *************** *** 1505,1519 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.843, 0.54, -0.892, -0.296, 0.786, 0.136, 0.731, -0.418, -0.118 }; int lda = 3; ! double B[] = { -0.775, 0.5, -0.399, -0.709, 0.779, 0.774 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1732)"); } }; --- 1505,1519 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.076, 0.103, -0.021, -0.866, 0.777, 0.723, 0.378, 0.98, -0.32 }; int lda = 3; ! double B[] = { 0.739, -0.996, 0.182, 0.626, 0.291, -0.267 }; int ldb = 2; ! double B_expected[] = { -0.0056164, 0.0075696, 0.0217531, 0.0383814, 0.0022947, 0.0558954 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1724)"); } }; *************** *** 1529,1543 **** int M = 2; int N = 3; ! double alpha = 0; ! double A[] = { -0.765, 0.233, 0.318, 0.547, -0.469, 0.023, -0.867, 0.687, -0.912 }; int lda = 3; ! double B[] = { 0.019, -0.145, 0.472, 0.333, 0.527, -0.224 }; int ldb = 2; ! double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1733)"); } }; --- 1529,1543 ---- int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.469, 0.822, -0.619, 0.953, -0.706, 0.318, 0.559, -0.68, -0.208 }; int lda = 3; ! double B[] = { 0.362, 0.719, -0.661, -0.504, 0.595, -0.771 }; int ldb = 2; ! double B_expected[] = { 0.0362, 0.0719, -0.0363436, 0.0087018, 0.0160724, -0.1376333 }; cblas_dtrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrmm(case 1725)"); } }; *************** *** 1553,1568 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.852f, -0.409f, 0.871f, -0.854f, -0.493f, 0.444f, 0.973f, 0.027f }; int lda = 2; ! float B[] = { -0.561f, 0.132f, 0.689f, 0.653f, -0.758f, -0.109f, -0.596f, 0.395f, -0.561f, 0.378f, 0.21f, 0.51f }; int ldb = 3; ! float B_expected[] = { -0.0970014f, 0.0350174f, 0.0029825f, -0.048577f, -0.066776f, 0.121969f, -0.0368243f, -0.0590573f, -0.0352647f, -0.0556059f, -0.05019f, 0.019056f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1734) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1734) imag"); }; }; --- 1553,1568 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { -0.023f, 0.762f, -0.687f, -0.039f, -0.459f, 0.047f, 0.189f, 0.33f }; int lda = 2; ! float B[] = { 0.827f, -0.561f, 0.641f, -0.229f, -0.884f, -0.533f, -0.624f, -0.138f, 0.073f, 0.924f, -0.501f, -0.164f }; int ldb = 3; ! float B_expected[] = { -0.831767f, -0.762219f, -0.14564f, 0.143926f, -0.764269f, 0.529142f, 0.072396f, 0.232002f, 0.291123f, -0.198726f, 0.040569f, 0.196326f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1726) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1726) imag"); }; }; *************** *** 1578,1593 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.349f, 0.0f, -0.462f, 0.91f, -0.693f, 0.587f, -0.617f, 0.112f }; int lda = 2; ! float B[] = { 0.842f, -0.473f, 0.825f, 0.866f, 0.986f, 0.686f, 0.346f, 0.299f, -0.659f, 0.009f, 0.007f, -0.478f }; int ldb = 3; ! float B_expected[] = { 0.0296278f, 0.0410058f, -0.0262152f, 0.112127f, -0.0913206f, 0.141775f, -0.0299f, 0.0346f, -0.0009f, -0.0659f, 0.0478f, 0.0007f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1735) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1735) imag"); }; }; --- 1578,1593 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.24f, 0.581f, 0.06f, 0.064f, 0.981f, 0.792f, 0.242f, -0.529f }; int lda = 2; ! float B[] = { -0.649f, -0.774f, -0.43f, -0.447f, -0.266f, 0.285f, 0.787f, 0.274f, 0.449f, -0.912f, 0.435f, 0.601f }; int ldb = 3; ! float B_expected[] = { 0.619316f, 0.707192f, 0.344692f, 0.472984f, 0.278364f, -0.3489f, -0.787f, -0.274f, -0.449f, 0.912f, -0.435f, -0.601f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1727) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1727) imag"); }; }; *************** *** 1603,1618 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.661f, -0.823f, 0.28f, 0.171f, 0.267f, 0.66f, 0.844f, 0.472f }; int lda = 2; ! float B[] = { -0.256f, -0.518f, -0.933f, 0.066f, -0.513f, -0.286f, 0.109f, 0.372f, -0.183f, 0.482f, 0.362f, -0.436f }; int ldb = 3; ! float B_expected[] = { 0.013171f, -0.059553f, -0.0811485f, -0.0562395f, -0.0233153f, -0.0574471f, -0.005815f, 0.018994f, 0.0277726f, -0.0674627f, 0.0612062f, 0.0563109f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1736) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1736) imag"); }; }; --- 1603,1618 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.68f, -0.728f, -0.59f, -0.434f, -0.936f, 0.915f, 0.236f, -0.118f }; int lda = 2; ! float B[] = { 0.461f, 0.48f, 0.224f, 0.215f, -0.419f, -0.525f, 0.113f, -0.582f, 0.468f, 0.269f, 0.943f, -0.587f }; int ldb = 3; ! float B_expected[] = { -0.66292f, 0.009208f, -0.30884f, 0.016872f, 0.66712f, 0.051968f, 0.912704f, 0.178151f, 0.264199f, -0.01198f, -1.02584f, 0.141791f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1728) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1728) imag"); }; }; *************** *** 1628,1643 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.623f, 0.314f, -0.594f, 0.717f, 0.566f, 0.001f, -0.411f, -0.387f }; int lda = 2; ! float B[] = { -0.083f, 0.937f, -0.814f, 0.9f, -0.042f, 0.678f, -0.928f, 0.228f, 0.965f, -0.16f, 0.006f, -0.281f }; int ldb = 3; ! float B_expected[] = { -0.0937f, -0.0083f, -0.09f, -0.0814f, -0.0678f, -0.0042f, -0.0758259f, -0.0975915f, -0.0348586f, 0.0503376f, -0.0102706f, -0.001845f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1737) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1737) imag"); }; }; --- 1628,1643 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.699f, -0.709f, -0.775f, 0.779f, 0.5f, 0.774f, -0.399f, -0.843f }; int lda = 2; ! float B[] = { 0.538f, 0.556f, -0.186f, -0.678f, -0.413f, -0.612f, -0.216f, -0.519f, -0.344f, -0.578f, -0.938f, -0.848f }; int ldb = 3; ! float B_expected[] = { -0.538f, -0.556f, 0.186f, 0.678f, 0.413f, 0.612f, 0.377344f, -0.175412f, -0.087772f, 1.06096f, 0.670812f, 1.47366f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1729) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1729) imag"); }; }; *************** *** 1653,1668 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.247f, -0.582f, 0.651f, -0.534f, -0.491f, 0.346f, 0.936f, -0.227f }; int lda = 2; ! float B[] = { -0.002f, -0.02f, 0.162f, -0.62f, 0.632f, -0.07f, 0.352f, 0.042f, 0.574f, 0.272f, -0.139f, 0.012f }; int ldb = 2; ! float B_expected[] = { -0.0366576f, 0.0123832f, 0.0617094f, 0.0010892f, 0.0249364f, -0.0384208f, 0.0040592f, 0.0339006f, 0.0455238f, 0.0080623f, -0.0042785f, -0.012738f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1738) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1738) imag"); }; }; --- 1653,1668 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.527f, 0.318f, -0.224f, 0.547f, -0.765f, -0.469f, 0.233f, 0.023f }; int lda = 2; ! float B[] = { 0.54f, -0.418f, -0.892f, -0.118f, -0.296f, 0.019f, 0.786f, -0.145f, 0.136f, 0.472f, 0.731f, 0.333f }; int ldb = 2; ! float B_expected[] = { -1.04454f, -0.460052f, 0.205122f, 0.04801f, 0.831329f, 0.341824f, -0.186473f, 0.015707f, 0.481462f, 0.305592f, -0.162664f, -0.094402f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1730) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1730) imag"); }; }; *************** *** 1678,1693 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.152f, 0.395f, -0.077f, -0.191f, -0.757f, 0.858f, -0.494f, -0.734f }; int lda = 2; ! float B[] = { -0.166f, -0.413f, -0.373f, 0.915f, -0.824f, -0.066f, -0.114f, -0.921f, 0.862f, 0.312f, 0.221f, 0.699f }; int ldb = 2; ! float B_expected[] = { 0.142569f, -0.0668709f, -0.0915f, -0.0373f, -0.0533385f, 0.0052516f, 0.0921f, -0.0114f, 0.0027525f, 0.0094961f, -0.0699f, 0.0221f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1739) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1739) imag"); }; }; --- 1678,1693 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { -0.109f, -0.852f, 0.395f, 0.871f, 0.378f, -0.493f, 0.51f, 0.973f }; int lda = 2; ! float B[] = { -0.867f, -0.758f, 0.687f, -0.596f, -0.912f, -0.561f, -0.389f, 0.21f, -0.561f, 0.132f, 0.689f, 0.653f }; int ldb = 2; ! float B_expected[] = { 0.901142f, 1.32198f, -0.687f, 0.596f, 0.955512f, 0.289843f, 0.389f, -0.21f, -0.021371f, -0.039157f, -0.689f, -0.653f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1731) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1731) imag"); }; }; *************** *** 1703,1718 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.426f, 0.817f, -0.993f, -0.882f, 0.615f, 0.627f, -0.238f, -0.903f }; int lda = 2; ! float B[] = { 0.895f, 0.849f, 0.811f, 0.402f, 0.074f, -0.493f, -0.548f, -0.82f, 0.323f, 0.301f, 0.612f, -0.092f }; int ldb = 2; ! float B_expected[] = { -0.0369541f, -0.10749f, 0.246046f, 0.0030071f, -0.0270476f, 0.0371257f, -0.111428f, -0.111834f, -0.0135665f, -0.0383515f, 0.111452f, -0.0283989f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1740) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1740) imag"); }; }; --- 1703,1718 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.686f, 0.349f, 0.299f, -0.462f, 0.009f, -0.693f, -0.478f, -0.617f }; int lda = 2; ! float B[] = { -0.409f, 0.986f, -0.854f, 0.346f, 0.444f, -0.659f, 0.027f, 0.007f, 0.842f, -0.473f, 0.825f, 0.866f }; int ldb = 2; ! float B_expected[] = { 0.624688f, -0.533655f, -0.954935f, -0.845302f, -0.534575f, 0.297118f, 0.180289f, 0.422174f, -0.742689f, 0.03062f, -0.173204f, 1.4534f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1732) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1732) imag"); }; }; *************** *** 1728,1743 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.451f, -0.754f, -0.673f, 0.433f, -0.712f, -0.033f, -0.588f, 0.116f }; int lda = 2; ! float B[] = { 0.787f, -0.377f, -0.854f, -0.464f, 0.118f, 0.231f, 0.362f, -0.457f, -0.076f, 0.373f, -0.286f, -0.468f }; int ldb = 2; ! float B_expected[] = { 0.0377f, 0.0787f, -0.0130492f, -0.122041f, -0.0231f, 0.0118f, 0.0561369f, 0.0182563f, -0.0373f, -0.0076f, 0.0751937f, -0.0396361f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1741) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1741) imag"); }; }; --- 1728,1743 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { -0.286f, 0.661f, 0.372f, 0.28f, 0.482f, 0.267f, -0.436f, 0.844f }; int lda = 2; ! float B[] = { 0.0f, -0.513f, 0.91f, 0.109f, 0.587f, -0.183f, 0.112f, 0.362f, -0.256f, -0.518f, -0.933f, 0.066f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.513f, -1.05364f, 0.081836f, -0.587f, 0.183f, -0.381604f, -0.458284f, 0.256f, 0.518f, 0.883192f, 0.198376f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1733) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1733) imag"); }; }; *************** *** 1753,1768 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.454f, 0.494f, 0.424f, -0.907f, 0.339f, -0.141f, 0.169f, 0.364f, -0.607f, 0.955f, -0.156f, 0.962f, -0.254f, 0.079f, 0.209f, 0.946f, 0.93f, 0.677f }; int lda = 3; ! float B[] = { -0.99f, -0.484f, 0.915f, -0.383f, 0.228f, 0.797f, 0.597f, 0.765f, -0.629f, 0.002f, -0.89f, 0.077f }; int ldb = 3; ! float B_expected[] = { 0.0269324f, 0.0688556f, -0.179902f, -0.104839f, -0.181106f, -0.0505677f, 0.0052392f, -0.0648948f, 0.0819028f, 0.132688f, 0.0961172f, -0.0473381f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1742) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1742) imag"); }; }; --- 1753,1768 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.678f, 0.717f, 0.228f, 0.001f, -0.16f, -0.387f, -0.281f, -0.002f, 0.623f, 0.162f, -0.594f, 0.632f, 0.566f, 0.352f, -0.411f, 0.574f, 0.314f, -0.139f }; int lda = 3; ! float B[] = { -0.823f, -0.042f, 0.171f, -0.928f, 0.66f, 0.965f, 0.472f, 0.006f, -0.083f, 0.937f, -0.814f, 0.9f }; int ldb = 3; ! float B_expected[] = { 0.52788f, 0.618567f, -0.069267f, 0.560841f, -0.941723f, -1.19579f, -0.315714f, -0.342492f, 0.095893f, -0.572145f, 0.746576f, 0.396912f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1734) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1734) imag"); }; }; *************** *** 1778,1793 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.008f, -0.654f, 0.174f, 0.448f, 0.388f, -0.108f, -0.479f, -0.708f, -0.035f, 0.816f, 0.487f, 0.22f, -0.482f, 0.57f, -0.317f, 0.203f, -0.547f, -0.415f }; int lda = 3; ! float B[] = { 0.651f, 0.187f, 0.591f, -0.007f, 0.171f, -0.923f, -0.029f, -0.685f, -0.049f, 0.135f, 0.578f, 0.979f }; int ldb = 3; ! float B_expected[] = { -0.0187f, 0.0651f, -0.0317186f, 0.0620498f, 0.0794141f, 0.0733141f, 0.0685f, -0.0029f, -0.0002818f, 0.0252834f, -0.0771317f, 0.0439205f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1743) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1743) imag"); }; }; --- 1778,1793 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.346f, 0.915f, -0.227f, -0.066f, -0.166f, -0.921f, -0.373f, 0.312f, -0.824f, 0.699f, -0.114f, -0.152f, 0.862f, -0.077f, 0.221f, -0.757f, -0.413f, -0.494f }; int lda = 3; ! float B[] = { -0.02f, -0.247f, -0.62f, 0.651f, -0.07f, -0.491f, 0.042f, 0.936f, 0.272f, -0.582f, 0.012f, -0.534f }; int ldb = 3; ! float B_expected[] = { 0.02f, 0.247f, 0.631762f, -0.708389f, 0.124535f, 0.411552f, -0.042f, -0.936f, -0.324242f, 0.797244f, -0.747612f, 0.703054f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1735) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1735) imag"); }; }; *************** *** 1803,1818 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.952f, 0.29f, 0.944f, 0.294f, -0.762f, -0.7f, -0.949f, 0.167f, 0.307f, 0.904f, -0.428f, -0.411f, 0.496f, 0.004f, -0.611f, -0.09f, -0.846f, 0.081f }; int lda = 3; ! float B[] = { 0.782f, -0.035f, -0.441f, -0.791f, -0.09f, -0.56f, -0.438f, -0.691f, 0.88f, 0.545f, -0.55f, 0.595f }; int ldb = 3; ! float B_expected[] = { -0.0592352f, 0.126282f, 0.0291241f, 0.0584267f, -0.046647f, 0.01215f, 0.0862177f, -0.14179f, -0.064879f, 0.016708f, 0.054792f, 0.0417105f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1744) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1744) imag"); }; }; --- 1803,1818 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { -0.493f, -0.882f, -0.82f, 0.627f, 0.301f, -0.903f, -0.092f, 0.787f, -0.426f, -0.854f, -0.993f, 0.118f, 0.615f, 0.362f, -0.238f, -0.076f, 0.817f, -0.286f }; int lda = 3; ! float B[] = { 0.395f, 0.074f, -0.191f, -0.548f, 0.858f, 0.323f, -0.734f, 0.612f, 0.895f, 0.849f, 0.811f, 0.402f }; int ldb = 3; ! float B_expected[] = { -0.730125f, -0.024468f, 0.566282f, -0.25448f, -0.793364f, -0.018503f, -0.504384f, -1.51274f, -0.18131f, 1.28332f, -0.777559f, -0.096488f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1736) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1736) imag"); }; }; *************** *** 1828,1843 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.519f, 0.708f, -0.934f, -0.219f, 0.376f, -0.967f, 0.322f, -0.355f, 0.972f, -0.156f, -0.735f, 0.928f, 0.084f, -0.267f, -0.152f, 0.434f, 0.267f, 0.983f }; int lda = 3; ! float B[] = { -0.54f, 0.149f, 0.574f, 0.742f, 0.704f, 0.459f, -0.9f, 0.04f, 0.538f, -0.858f, 0.467f, 0.686f }; int ldb = 3; ! float B_expected[] = { -0.0034742f, 0.0089927f, -0.0977768f, 0.0267786f, -0.0459f, 0.0704f, 0.0494331f, -0.0808964f, 0.0759594f, 0.0169292f, -0.0686f, 0.0467f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1745) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1745) imag"); }; }; --- 1828,1843 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { -0.033f, -0.383f, 0.116f, 0.797f, -0.99f, 0.765f, 0.915f, 0.002f, 0.228f, 0.077f, 0.597f, -0.454f, -0.629f, 0.424f, -0.89f, 0.339f, -0.484f, 0.169f }; int lda = 3; ! float B[] = { -0.377f, -0.451f, -0.464f, -0.673f, 0.231f, -0.712f, -0.457f, -0.588f, 0.373f, -0.754f, -0.468f, 0.433f }; int ldb = 3; ! float B_expected[] = { 0.643625f, 0.521931f, 0.428222f, -0.038989f, -0.231f, 0.712f, 0.003417f, 1.74795f, -0.642733f, 1.29802f, 0.468f, -0.433f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1737) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1737) imag"); }; }; *************** *** 1853,1868 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.541f, 0.67f, 0.014f, 0.446f, 0.086f, -0.525f, 0.033f, -0.932f, 0.977f, 0.321f, -0.651f, 0.027f, 0.409f, 0.328f, 0.359f, -0.615f, 0.419f, -0.25f }; int lda = 3; ! float B[] = { -0.156f, 0.666f, -0.231f, 0.691f, 0.935f, -0.481f, -0.142f, -0.117f, 0.529f, 0.526f, 0.266f, 0.417f }; int ldb = 2; ! float B_expected[] = { 0.0464826f, -0.0361824f, 0.0528601f, -0.0337999f, 0.0002432f, 0.168346f, -0.0078204f, 0.0535212f, 0.0438334f, 0.0110749f, -0.0360401f, -0.0228356f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1746) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1746) imag"); }; }; --- 1853,1868 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.946f, -0.007f, 0.677f, -0.923f, 0.651f, -0.685f, 0.591f, 0.135f, 0.171f, 0.979f, -0.029f, -0.008f, -0.049f, 0.174f, 0.578f, 0.388f, 0.187f, -0.479f }; int lda = 3; ! float B[] = { -0.607f, -0.907f, -0.156f, -0.141f, -0.254f, 0.364f, 0.209f, 0.955f, 0.93f, 0.962f, 0.494f, 0.079f }; int ldb = 2; ! float B_expected[] = { 0.580571f, 0.853773f, 0.148563f, 0.132294f, 0.636082f, 0.804404f, 0.972367f, -0.263525f, -0.534225f, 0.214911f, 0.087341f, -0.390994f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1738) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1738) imag"); }; }; *************** *** 1878,1893 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.459f, -0.349f, -0.335f, 0.008f, 0.866f, 0.978f, -0.869f, -0.361f, -0.711f, 0.712f, 0.207f, 0.305f, 0.766f, -0.262f, 0.012f, -0.333f, 0.617f, 0.91f }; int lda = 3; ! float B[] = { -0.138f, -0.256f, -0.319f, -0.771f, 0.674f, -0.565f, -0.779f, -0.516f, -0.017f, -0.097f, -0.555f, 0.308f }; int ldb = 2; ! float B_expected[] = { 0.0256f, -0.0138f, 0.0771f, -0.0319f, 0.0292718f, 0.0701506f, -0.0269158f, -0.078012f, 0.0488162f, -0.0369837f, -0.0054207f, -0.118253f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1747) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1747) imag"); }; }; --- 1878,1893 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.203f, -0.791f, -0.415f, -0.56f, 0.782f, -0.691f, -0.441f, 0.545f, -0.09f, 0.595f, -0.438f, 0.952f, 0.88f, 0.944f, -0.55f, -0.762f, -0.035f, -0.949f }; int lda = 3; ! float B[] = { -0.035f, 0.448f, 0.487f, -0.108f, -0.482f, -0.708f, -0.317f, 0.816f, -0.547f, 0.22f, -0.654f, 0.57f }; int ldb = 2; ! float B_expected[] = { 0.035f, -0.448f, -0.487f, 0.108f, 0.710725f, 0.924643f, 0.472907f, -1.12904f, 1.27511f, -1.33788f, -0.672654f, -0.727442f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1739) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1739) imag"); }; }; *************** *** 1903,1918 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.825f, -0.785f, -0.605f, -0.508f, 0.763f, -0.578f, -0.167f, -0.233f, 0.011f, -0.853f, 0.24f, 0.192f, 0.293f, -0.72f, -0.348f, 0.023f, -0.145f, -0.493f }; int lda = 3; ! float B[] = { 0.305f, -0.255f, 0.882f, 0.883f, 0.088f, -0.473f, 0.135f, -0.063f, -0.671f, 0.473f, 0.874f, 0.548f }; int ldb = 2; ! float B_expected[] = { -0.0961148f, -0.0983903f, 0.153836f, 0.0835432f, 0.0095579f, -0.0654357f, -0.018348f, 0.005229f, -0.0262218f, 0.0330484f, 0.0510342f, 0.0143434f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1748) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1748) imag"); }; }; --- 1903,1918 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { -0.09f, 0.742f, 0.081f, 0.459f, -0.54f, 0.04f, 0.574f, -0.858f, 0.704f, 0.686f, -0.9f, -0.519f, 0.538f, -0.934f, 0.467f, 0.376f, 0.149f, 0.322f }; int lda = 3; ! float B[] = { 0.307f, 0.294f, -0.428f, -0.7f, 0.496f, 0.167f, -0.611f, 0.904f, -0.846f, -0.411f, 0.29f, 0.004f }; int ldb = 2; ! float B_expected[] = { -0.191025f, -0.630625f, 0.063267f, 0.452361f, -0.782713f, -1.2668f, 1.30921f, -0.06316f, -0.006288f, 0.333651f, -0.041922f, -0.093976f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1740) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1740) imag"); }; }; *************** *** 1928,1943 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.63f, 0.353f, 0.445f, 0.845f, 0.273f, -0.135f, 0.03f, 0.936f, 0.141f, 0.638f, -0.399f, 0.343f, -0.037f, -0.335f, -0.089f, 0.081f, 0.987f, -0.256f }; int lda = 3; ! float B[] = { -0.567f, 0.803f, 0.168f, 0.744f, -0.328f, 0.835f, -0.852f, 0.702f, 0.21f, -0.618f, 0.666f, -0.303f }; int ldb = 2; ! float B_expected[] = { -0.0700351f, -0.144464f, -0.0163821f, -0.0663417f, -0.115361f, -0.0199816f, -0.105134f, -0.10138f, 0.0618f, 0.021f, 0.0303f, 0.0666f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1749) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1749) imag"); }; }; --- 1928,1943 ---- int M = 2; int N = 3; ! float alpha[2] = {-1.0f, 0.0f}; ! float A[] = { 0.434f, 0.691f, 0.983f, -0.481f, -0.156f, -0.117f, -0.231f, 0.526f, 0.935f, 0.417f, -0.142f, -0.541f, 0.529f, 0.014f, 0.266f, 0.086f, 0.666f, 0.033f }; int lda = 3; ! float B[] = { 0.972f, -0.219f, -0.735f, -0.967f, 0.084f, -0.355f, -0.152f, -0.156f, 0.267f, 0.928f, 0.708f, -0.267f }; int ldb = 2; ! float B_expected[] = { -0.950741f, 0.784376f, 1.10114f, 1.08842f, -0.548134f, 0.631223f, 0.396983f, 0.501114f, -0.267f, -0.928f, -0.708f, 0.267f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1741) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1741) imag"); }; }; *************** *** 1953,1968 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.741f, 0.904f, -0.599f, 0.753f, -0.297f, 0.38f, -0.056f, -0.715f }; int lda = 2; ! float B[] = { 0.646f, -0.447f, -0.147f, 0.314f, -0.713f, 0.187f, -0.589f, 0.287f, -0.809f, -0.293f, 0.418f, 0.778f }; int ldb = 3; ! float B_expected[] = { -0.0915211f, -0.0074598f, 0.0365562f, -0.0174929f, 0.0783119f, 0.0359285f, -0.115925f, 0.0187826f, -0.0296066f, -0.031258f, 0.099134f, 0.0819138f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1750) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1750) imag"); }; }; --- 1953,1968 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.25f, -0.779f, -0.138f, -0.017f, -0.319f, -0.555f, 0.674f, -0.256f }; int lda = 2; ! float B[] = { -0.651f, -0.525f, 0.409f, -0.932f, 0.359f, 0.321f, 0.419f, 0.027f, 0.67f, 0.328f, 0.446f, -0.615f }; int ldb = 3; ! float B_expected[] = { 0.0100296f, -0.216136f, 0.257045f, -0.0571445f, -0.0121016f, 0.124004f, -0.110514f, 0.0386878f, -0.1561f, -0.0050383f, 0.028185f, 0.183634f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1742) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1742) imag"); }; }; *************** *** 1978,1993 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.645f, 0.756f, 0.709f, -0.657f, -0.023f, -0.714f, 0.03f, 0.239f }; int lda = 2; ! float B[] = { -0.16f, 0.254f, -0.68f, 0.183f, -0.402f, -0.259f, 0.104f, -0.09f, 0.944f, 0.729f, -0.378f, -0.792f }; int ldb = 3; ! float B_expected[] = { -0.0254f, -0.016f, -0.0183f, -0.068f, 0.0259f, -0.0402f, -0.0195206f, 0.0157438f, -0.130551f, 0.0582111f, 0.0711517f, -0.0833181f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1751) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1751) imag"); }; }; --- 1978,1993 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.012f, 0.978f, 0.617f, -0.361f, -0.349f, 0.712f, 0.008f, 0.305f }; int lda = 2; ! float B[] = { -0.771f, -0.335f, -0.565f, 0.866f, -0.516f, -0.869f, -0.097f, -0.711f, 0.308f, 0.207f, -0.459f, 0.766f }; int ldb = 3; ! float B_expected[] = { 0.2648f, 0.0234f, 0.0829f, -0.3163f, 0.2417f, 0.2091f, 0.272029f, 0.122445f, -0.176135f, -0.256384f, 0.285714f, -0.233939f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1743) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1743) imag"); }; }; *************** *** 2003,2018 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.25f, -0.038f, 0.377f, -0.209f, 0.166f, -0.073f, -0.24f, 0.938f }; int lda = 2; ! float B[] = { 0.26f, 0.696f, -0.183f, 0.668f, -0.08f, -0.938f, -0.837f, -0.509f, 0.781f, -0.063f, -0.953f, 0.227f }; int ldb = 3; ! float B_expected[] = { -0.0140727f, -0.0084651f, -0.0106483f, 0.0104681f, 0.0124209f, -0.0197271f, 0.0662946f, 0.0678322f, -0.0747698f, -0.0128346f, 0.0948394f, 0.0015794f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1752) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1752) imag"); }; }; --- 2003,2018 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.063f, -0.605f, 0.473f, 0.763f, 0.548f, -0.167f, -0.825f, 0.011f }; int lda = 2; ! float B[] = { -0.262f, 0.135f, -0.333f, -0.671f, 0.91f, 0.874f, 0.305f, -0.255f, 0.882f, 0.883f, 0.088f, -0.473f }; int ldb = 3; ! float B_expected[] = { -0.0627538f, 0.0344746f, -0.131779f, -0.149516f, -0.0442507f, 0.307921f, 0.053273f, -0.089001f, 0.293086f, 0.141896f, -0.0189002f, -0.124098f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1744) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1744) imag"); }; }; *************** *** 2028,2043 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.668f, 0.804f, 0.608f, -0.682f, -0.513f, 0.521f, 0.878f, -0.664f }; int lda = 2; ! float B[] = { -0.871f, 0.699f, 0.561f, 0.823f, -0.787f, 0.055f, -0.686f, 0.361f, -0.662f, -0.192f, -0.301f, -0.167f }; int ldb = 3; ! float B_expected[] = { -0.0156401f, -0.0707163f, -0.0576594f, 0.100064f, 0.001615f, -0.054558f, -0.0361f, -0.0686f, 0.0192f, -0.0662f, 0.0167f, -0.0301f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1753) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1753) imag"); }; }; --- 2028,2043 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.493f, -0.852f, -0.567f, 0.21f, 0.168f, 0.666f, -0.328f, 0.803f }; int lda = 2; ! float B[] = { 0.24f, -0.578f, 0.293f, -0.233f, -0.348f, -0.853f, -0.145f, 0.192f, -0.785f, -0.72f, -0.508f, 0.023f }; int ldb = 3; ! float B_expected[] = { 0.037901f, 0.201471f, -0.104515f, 0.327095f, 0.253345f, 0.311373f, 0.0243f, -0.0721f, 0.3075f, 0.1375f, 0.1501f, -0.0577f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1745) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1745) imag"); }; }; *************** *** 2053,2068 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.091f, 0.189f, -0.221f, 0.749f, 0.354f, -0.397f, 0.105f, -0.944f }; int lda = 2; ! float B[] = { 0.731f, -0.446f, 0.983f, 0.793f, 0.533f, 0.386f, -0.781f, -0.063f, 0.875f, -0.128f, -0.179f, -0.079f }; int ldb = 2; ! float B_expected[] = { -0.0097573f, 0.0150815f, 0.129278f, 0.0933519f, -0.0135863f, -0.0024451f, -0.0655692f, 0.0200447f, -0.0153727f, 0.0103817f, 0.0232006f, 0.0165563f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1754) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1754) imag"); }; }; --- 2053,2068 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.089f, -0.135f, 0.987f, 0.936f, 0.353f, 0.638f, 0.845f, 0.343f }; int lda = 2; ! float B[] = { 0.744f, 0.445f, 0.835f, 0.273f, 0.702f, 0.03f, -0.618f, 0.141f, -0.303f, -0.399f, 0.63f, -0.037f }; int ldb = 2; ! float B_expected[] = { 0.0158468f, 0.0413994f, -0.292082f, -0.285588f, 0.0272724f, 0.0233892f, 0.0660084f, -0.143882f, 0.0004278f, -0.0256146f, -0.19286f, 0.114065f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1746) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1746) imag"); }; }; *************** *** 2078,2093 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.676f, 0.644f, 0.03f, 0.456f, 0.002f, -0.909f, 0.984f, 0.771f }; int lda = 2; ! float B[] = { 0.65f, 0.005f, -0.883f, -0.154f, -0.137f, -0.137f, 0.531f, -0.49f, 0.052f, 0.273f, -0.602f, 0.655f }; int ldb = 2; ! float B_expected[] = { -0.0005f, 0.065f, 0.074484f, -0.0877155f, 0.0137f, -0.0137f, 0.0365741f, 0.0406193f, -0.0273f, 0.0052f, -0.0608278f, -0.0353739f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1755) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1755) imag"); }; }; --- 2078,2093 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.187f, -0.741f, 0.287f, -0.599f, -0.293f, -0.297f, 0.778f, -0.056f }; int lda = 2; ! float B[] = { -0.335f, -0.713f, 0.081f, -0.589f, -0.256f, -0.809f, -0.473f, 0.418f, 0.646f, -0.447f, -0.147f, 0.314f }; int ldb = 2; ! float B_expected[] = { 0.1718f, 0.1804f, 0.0378414f, 0.0809182f, 0.1577f, 0.2171f, 0.118373f, -0.283147f, -0.1491f, 0.1987f, 0.1154f, -0.122836f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1747) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1747) imag"); }; }; *************** *** 2103,2118 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.832f, -0.559f, 0.188f, -0.488f, -0.051f, -0.057f, 0.909f, 0.006f }; int lda = 2; ! float B[] = { -0.408f, 0.303f, 0.03f, 0.529f, -0.584f, -0.976f, 0.443f, -0.762f, 0.43f, 0.812f, -0.075f, 0.06f }; int ldb = 2; ! float B_expected[] = { -0.056498f, 0.0093713f, -0.0481041f, 0.0024096f, 0.0845016f, -0.132004f, 0.069f, 0.0407259f, -0.0483094f, 0.0826848f, -0.005409f, -0.0068535f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1756) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1756) imag"); }; }; --- 2103,2118 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.259f, -0.645f, -0.09f, 0.709f, 0.729f, -0.023f, -0.792f, 0.03f }; int lda = 2; ! float B[] = { 0.904f, -0.402f, 0.753f, 0.104f, 0.38f, 0.944f, -0.715f, -0.378f, -0.16f, 0.254f, -0.68f, 0.183f }; int ldb = 2; ! float B_expected[] = { 0.185924f, -0.0771597f, 0.185827f, -0.0420162f, -0.156592f, 0.373034f, -0.201079f, -0.0256158f, 0.0051007f, 0.152025f, -0.143387f, 0.102908f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1748) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1748) imag"); }; }; *************** *** 2128,2143 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.15f, -0.297f, 0.821f, -0.576f, -0.572f, 0.924f, 0.106f, -0.131f }; int lda = 2; ! float B[] = { -0.271f, 0.793f, -0.232f, -0.967f, -0.466f, 0.37f, -0.745f, -0.156f, -0.091f, -0.877f, 0.595f, 0.448f }; int ldb = 2; ! float B_expected[] = { -0.0132725f, -0.101846f, 0.0967f, -0.0232f, -0.0671044f, -0.11675f, 0.0156f, -0.0745f, 0.0851912f, 0.0655543f, -0.0448f, 0.0595f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1757) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1757) imag"); }; }; --- 2128,2143 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.938f, 0.25f, -0.509f, 0.377f, -0.063f, 0.166f, 0.227f, -0.24f }; int lda = 2; ! float B[] = { 0.756f, -0.08f, -0.657f, -0.837f, -0.714f, 0.781f, 0.239f, -0.953f, 0.26f, 0.696f, -0.183f, 0.668f }; int ldb = 2; ! float B_expected[] = { -0.431623f, 0.111093f, 0.2808f, 0.1854f, 0.007293f, -0.454491f, 0.0236f, 0.3098f, -0.059093f, -0.075968f, -0.0119f, -0.2187f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1749) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1749) imag"); }; }; *************** *** 2153,2168 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.002f, 0.0f, 0.626f, -0.148f, 0.874f, 0.229f, -0.227f, -0.55f, -0.895f, 0.586f, 0.934f, 0.618f, 0.958f, -0.543f, 0.49f, 0.671f, -0.871f, 0.227f }; int lda = 3; ! float B[] = { -0.415f, 0.156f, -0.539f, -0.247f, -0.725f, 0.932f, 0.565f, 0.454f, -0.118f, 0.693f, -0.968f, -0.601f }; int ldb = 3; ! float B_expected[] = { -0.0574005f, -0.122188f, -0.0327649f, -0.0625979f, 0.0976347f, 0.0419911f, 0.0294756f, -0.0678577f, 0.184894f, -0.0833182f, -0.0303735f, 0.0979555f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1758) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1758) imag"); }; }; --- 2153,2168 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.055f, -0.682f, 0.361f, 0.521f, -0.192f, -0.664f, -0.167f, 0.731f, -0.668f, 0.983f, 0.608f, 0.533f, -0.513f, -0.781f, 0.878f, 0.875f, 0.804f, -0.179f }; int lda = 3; ! float B[] = { -0.038f, -0.787f, -0.209f, -0.686f, -0.073f, -0.662f, 0.938f, -0.301f, -0.871f, 0.699f, 0.561f, 0.823f }; int ldb = 3; ! float B_expected[] = { 0.224558f, -0.0087435f, -0.317863f, 0.168822f, 0.105075f, 0.138035f, 0.256887f, 0.377119f, 0.113231f, 0.136832f, -0.235636f, -0.108546f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1750) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1750) imag"); }; }; *************** *** 2178,2193 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.89f, 0.309f, -0.786f, 0.999f, 0.511f, 0.599f, 0.385f, -0.615f, 0.527f, -0.328f, -0.078f, -0.666f, 0.004f, -0.69f, -0.281f, -0.438f, 0.456f, 0.524f }; int lda = 3; ! float B[] = { -0.648f, -0.189f, -0.295f, 0.477f, 0.509f, 0.685f, 0.875f, 0.277f, -0.34f, -0.632f, -0.453f, -0.798f }; int ldb = 3; ! float B_expected[] = { 0.0203701f, -0.104287f, -0.0084576f, 0.0121508f, -0.0685f, 0.0509f, 0.0245033f, 0.202013f, 0.0268058f, -0.0836134f, 0.0798f, -0.0453f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1759) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1759) imag"); }; }; --- 2178,2193 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.397f, -0.154f, -0.944f, -0.137f, 0.65f, -0.49f, -0.883f, 0.273f, -0.137f, 0.655f, 0.531f, 0.676f, 0.052f, 0.03f, -0.602f, 0.002f, 0.005f, 0.984f }; int lda = 3; ! float B[] = { -0.446f, 0.091f, 0.793f, -0.221f, 0.386f, 0.354f, -0.063f, 0.105f, -0.128f, 0.189f, -0.079f, 0.749f }; int ldb = 3; ! float B_expected[] = { 0.216958f, -0.149634f, -0.25039f, 0.0074932f, -0.1512f, -0.0676f, -0.166784f, -0.100965f, 0.14955f, -0.227622f, -0.0512f, -0.2326f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1751) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1751) imag"); }; }; *************** *** 2203,2218 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.772f, 0.686f, 0.693f, 0.803f, -0.328f, -0.627f, -0.869f, -0.656f, -0.055f, -0.366f, -0.981f, -0.151f, 0.147f, -0.368f, -0.824f, -0.454f, -0.445f, -0.794f }; int lda = 3; ! float B[] = { -0.268f, -0.521f, -0.685f, -0.618f, 0.508f, 0.525f, -0.492f, -0.502f, -0.997f, 0.28f, 0.63f, 0.664f }; int ldb = 3; ! float B_expected[] = { 0.058606f, 0.015051f, -0.0913257f, -0.0297397f, -0.0205282f, 0.0243534f, 0.0725056f, -0.0035452f, -0.110849f, 0.0255551f, 0.046652f, 0.0938454f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1760) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1760) imag"); }; }; --- 2203,2218 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.976f, -0.488f, -0.762f, -0.057f, 0.812f, 0.006f, 0.06f, -0.271f, 0.832f, -0.232f, 0.188f, -0.466f, -0.051f, -0.745f, 0.909f, -0.091f, -0.559f, 0.595f }; int lda = 3; ! float B[] = { 0.644f, -0.584f, 0.456f, 0.443f, -0.909f, 0.43f, 0.771f, -0.075f, -0.408f, 0.303f, 0.03f, 0.529f }; int ldb = 3; ! float B_expected[] = { 0.24849f, -0.168067f, -0.114085f, 0.0202884f, 0.0152508f, 0.284926f, 0.267034f, 0.0120048f, 0.0596364f, -0.0643158f, 0.284594f, 0.0837608f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1752) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1752) imag"); }; }; *************** *** 2228,2243 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.317f, -0.822f, 0.732f, 0.383f, 0.457f, 0.443f, 0.529f, -0.949f, -0.927f, -0.65f, -0.471f, -0.624f, -0.731f, 0.107f, -0.142f, 0.623f, 0.159f, -0.419f }; int lda = 3; ! float B[] = { 0.292f, -0.665f, -0.93f, 0.517f, 0.123f, -0.181f, 0.325f, 0.954f, -0.988f, -0.128f, 0.637f, -0.997f }; int ldb = 3; ! float B_expected[] = { 0.0665f, 0.0292f, 0.0111893f, -0.140662f, 0.0316445f, -0.0209328f, -0.0954f, 0.0325f, -0.0068241f, 0.0089271f, 0.225695f, 0.0517387f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1761) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1761) imag"); }; }; --- 2228,2243 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.924f, -0.247f, -0.131f, 0.932f, -0.415f, 0.454f, -0.539f, 0.693f, -0.725f, -0.601f, 0.565f, 0.002f, -0.118f, 0.626f, -0.968f, 0.874f, 0.156f, -0.227f }; int lda = 3; ! float B[] = { 0.793f, -0.15f, -0.967f, 0.821f, 0.37f, -0.572f, -0.156f, 0.106f, -0.877f, -0.297f, 0.448f, -0.576f }; int ldb = 3; ! float B_expected[] = { -0.2229f, 0.1243f, 0.242003f, -0.564467f, -0.0068716f, 0.568213f, 0.0362f, -0.0474f, 0.306136f, 0.0520352f, -0.336053f, 0.500406f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1753) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1753) imag"); }; }; *************** *** 2253,2268 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.809f, 0.393f, -0.015f, -0.273f, -0.956f, 0.49f, 0.365f, -0.386f, 0.941f, 0.992f, 0.297f, 0.761f, 0.425f, -0.605f, 0.672f, 0.725f, -0.077f, -0.628f }; int lda = 3; ! float B[] = { 0.21f, 0.153f, 0.218f, -0.129f, 0.736f, -0.006f, 0.502f, -0.165f, 0.242f, 0.915f, 0.67f, 0.07f }; int ldb = 2; ! float B_expected[] = { 0.0085068f, 0.069273f, 0.0439562f, 0.0320975f, -0.15148f, 0.0197777f, -0.0875509f, 0.103555f, 0.0222431f, 0.0555986f, 0.042615f, -0.000763f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1762) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1762) imag"); }; }; --- 2253,2268 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.671f, 0.477f, 0.227f, 0.685f, -0.648f, 0.277f, -0.295f, -0.632f, 0.509f, -0.798f, 0.875f, 0.89f, -0.34f, -0.786f, -0.453f, 0.511f, -0.189f, 0.385f }; int lda = 3; ! float B[] = { -0.895f, -0.148f, 0.934f, 0.229f, 0.958f, -0.55f, 0.49f, 0.586f, -0.871f, 0.618f, -0.0f, -0.543f }; int ldb = 2; ! float B_expected[] = { 0.162976f, 0.110656f, -0.12507f, -0.0587256f, 0.138701f, 0.543589f, -0.313677f, 0.0534812f, 0.067207f, 0.12831f, -0.0729792f, -0.0098826f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1754) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1754) imag"); }; }; *************** *** 2278,2293 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.187f, -0.508f, -0.987f, -0.861f, 0.519f, 0.752f, -0.117f, 0.972f, 0.068f, -0.752f, 0.344f, 0.074f, -0.343f, 0.0f, -0.876f, 0.857f, -0.148f, -0.933f }; int lda = 3; ! float B[] = { 0.827f, 0.958f, 0.395f, 0.878f, 0.88f, -0.896f, -0.771f, -0.355f, -0.979f, 0.329f, -0.166f, -0.644f }; int ldb = 2; ! float B_expected[] = { -0.180535f, 0.193075f, -0.0391015f, 0.0887205f, 0.202321f, 0.145565f, -0.0066882f, -0.0073676f, -0.0329f, -0.0979f, 0.0644f, -0.0166f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1763) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1763) imag"); }; }; --- 2278,2293 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.438f, -0.618f, 0.524f, 0.525f, -0.268f, -0.502f, -0.685f, 0.28f, 0.508f, 0.664f, -0.492f, 0.772f, -0.997f, 0.693f, 0.63f, -0.328f, -0.521f, -0.869f }; int lda = 3; ! float B[] = { 0.527f, 0.999f, -0.078f, 0.599f, 0.004f, -0.615f, -0.281f, -0.328f, 0.456f, -0.666f, 0.309f, -0.69f }; int ldb = 2; ! float B_expected[] = { -0.45115f, -0.650085f, -0.277633f, -0.456478f, 0.0965652f, 0.362528f, 0.1802f, 0.227951f, -0.0702f, 0.2454f, -0.0237f, 0.2379f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1755) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1755) imag"); }; }; *************** *** 2303,2318 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { -0.622f, 0.022f, -0.966f, 0.704f, 0.43f, -0.451f, -0.221f, 0.969f, 0.977f, 0.021f, -0.725f, -0.382f, 0.779f, 0.957f, 0.25f, 0.832f, 0.029f, -0.903f }; int lda = 3; ! float B[] = { 0.315f, -0.297f, -0.864f, 0.519f, -0.601f, -0.119f, 0.028f, 0.072f, -0.171f, 0.648f, 0.159f, -0.623f }; int ldb = 2; ! float B_expected[] = { -0.0191664f, -0.0189396f, 0.0341826f, 0.052599f, -0.0379778f, -0.067988f, 0.103868f, 0.0495092f, -0.0219287f, 0.0971955f, -0.0388294f, -0.0688205f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1764) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1764) imag"); }; }; --- 2303,2318 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.454f, 0.517f, -0.794f, -0.181f, 0.292f, 0.954f, -0.93f, -0.128f, 0.123f, -0.997f, 0.325f, -0.317f, -0.988f, 0.732f, 0.637f, 0.457f, -0.665f, 0.529f }; int lda = 3; ! float B[] = { -0.055f, 0.803f, -0.981f, -0.627f, 0.147f, -0.656f, -0.824f, -0.366f, -0.445f, -0.151f, 0.686f, -0.368f }; int ldb = 2; ! float B_expected[] = { 0.156354f, 0.078881f, -0.208608f, 0.143709f, 0.219569f, 0.211768f, -0.204943f, -0.415655f, 0.191227f, 0.0071854f, 0.136999f, 0.0773624f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1756) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1756) imag"); }; }; *************** *** 2328,2343 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.1f}; ! float A[] = { 0.106f, 0.87f, 0.21f, 0.463f, -0.496f, -0.981f, -0.354f, -0.604f, -0.149f, -0.384f, -0.958f, -0.502f, -0.579f, 0.736f, -0.322f, 0.028f, 0.193f, 0.14f }; int lda = 3; ! float B[] = { -0.812f, 0.518f, 0.085f, -0.447f, -0.443f, 0.928f, -0.972f, 0.889f, 0.605f, -0.258f, -0.025f, 0.98f }; int ldb = 2; ! float B_expected[] = { -0.0518f, -0.0812f, 0.0447f, 0.0085f, -0.0660824f, -0.0853354f, -0.0834485f, -0.0747189f, 0.0384994f, 0.240616f, -0.0754609f, 0.0871787f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1765) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1765) imag"); }; }; --- 2328,2343 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.623f, -0.129f, -0.419f, -0.006f, 0.21f, -0.165f, 0.218f, 0.915f, 0.736f, 0.07f, 0.502f, -0.809f, 0.242f, -0.015f, 0.67f, -0.956f, 0.153f, 0.365f }; int lda = 3; ! float B[] = { -0.927f, 0.383f, -0.471f, 0.443f, -0.731f, -0.949f, -0.142f, -0.65f, 0.159f, -0.624f, -0.822f, 0.107f }; int ldb = 2; ! float B_expected[] = { 0.2398f, -0.2076f, 0.097f, -0.18f, 0.212478f, 0.297146f, 0.065877f, 0.255638f, 0.359717f, -0.0280276f, 0.426852f, -0.164392f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1757) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1757) imag"); }; }; *************** *** 2353,2368 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.553f, 0.204f, -0.793f, -0.558f, 0.741f, 0.26f, 0.945f, -0.757f }; int lda = 2; ! float B[] = { -0.515f, 0.532f, -0.321f, 0.326f, -0.81f, -0.924f, 0.474f, 0.985f, -0.03f, 0.406f, 0.923f, -0.956f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1766) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1766) imag"); }; }; --- 2353,2368 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.628f, -0.771f, 0.827f, -0.979f, 0.395f, -0.166f, 0.88f, 0.958f }; int lda = 2; ! float B[] = { 0.297f, 0.49f, 0.425f, -0.386f, 0.672f, 0.992f, -0.077f, 0.761f, 0.393f, -0.605f, -0.273f, 0.725f }; int ldb = 3; ! float B_expected[] = { 0.177165f, -0.0328107f, -0.0662201f, -0.167954f, 0.366541f, -0.0872256f, -0.2721f, -0.389113f, -0.0674816f, 0.293174f, -0.249446f, -0.709453f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1758) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1758) imag"); }; }; *************** *** 2378,2393 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.41f, -0.804f, 0.988f, -0.715f, -0.281f, -0.89f, 0.389f, -0.408f }; int lda = 2; ! float B[] = { 0.917f, 0.541f, -0.108f, -0.965f, 0.524f, 0.04f, -0.736f, -0.643f, -0.202f, 0.86f, 0.346f, -0.017f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1767) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1767) imag"); }; }; --- 2378,2393 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.876f, 0.752f, -0.148f, 0.972f, -0.508f, -0.752f, -0.861f, 0.074f }; int lda = 2; ! float B[] = { 0.878f, -0.987f, -0.896f, 0.519f, -0.355f, -0.117f, 0.329f, 0.068f, -0.644f, 0.344f, -0.187f, -0.343f }; int ldb = 3; ! float B_expected[] = { -0.1647f, 0.3839f, 0.2169f, -0.2453f, 0.1182f, -0.0004f, 0.292026f, 0.115771f, -0.111733f, -0.342122f, 0.0725176f, -0.0306312f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1759) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1759) imag"); }; }; *************** *** 2403,2418 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.153f, -0.812f, -0.742f, -0.18f, 0.473f, 0.023f, -0.433f, 0.559f }; int lda = 2; ! float B[] = { 0.078f, -0.691f, -0.717f, -0.637f, -0.016f, 0.375f, -0.902f, -0.343f, 0.155f, 0.563f, 0.419f, 0.451f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1768) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1768) imag"); }; }; --- 2403,2418 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.072f, -0.966f, 0.648f, 0.43f, -0.623f, -0.221f, -0.622f, 0.977f }; int lda = 2; ! float B[] = { 0.0f, 0.028f, 0.857f, -0.171f, -0.933f, 0.159f, 0.315f, -0.297f, -0.864f, 0.519f, -0.601f, -0.119f }; int ldb = 3; ! float B_expected[] = { 0.0216306f, -0.0927642f, -0.225266f, -0.0253344f, 0.0408658f, 0.302549f, 0.158132f, -0.0117036f, -0.365472f, -0.0519459f, -0.143387f, -0.172603f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1760) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1760) imag"); }; }; *************** *** 2428,2443 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.288f, 0.241f, 0.593f, -0.597f, -0.469f, 0.735f, 0.193f, -0.104f }; int lda = 2; ! float B[] = { -0.835f, 0.037f, -0.762f, 0.782f, -0.874f, -0.867f, -0.81f, -0.577f, 0.352f, 0.827f, 0.237f, -0.861f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1769) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1769) imag"); }; }; --- 2428,2443 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.903f, -0.972f, -0.812f, 0.605f, 0.085f, -0.025f, -0.443f, 0.518f }; int lda = 2; ! float B[] = { -0.725f, -0.451f, 0.779f, 0.969f, 0.25f, 0.021f, 0.029f, -0.382f, 0.022f, 0.957f, 0.704f, 0.832f }; int ldb = 3; ! float B_expected[] = { 0.26217f, 0.073525f, -0.332173f, -0.239574f, -0.097644f, -0.003892f, 0.0295f, 0.1175f, -0.1023f, -0.2849f, -0.2944f, -0.1792f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1761) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1761) imag"); }; }; *************** *** 2453,2468 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.441f, -0.217f, 0.679f, 0.106f, -0.76f, -0.258f, -0.956f, -0.858f }; int lda = 2; ! float B[] = { -0.802f, 0.163f, 0.293f, 0.54f, 0.228f, 0.071f, 0.942f, 0.345f, 0.591f, 0.654f, 0.382f, -0.892f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1770) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1770) imag"); }; }; --- 2453,2468 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.322f, -0.981f, 0.193f, -0.604f, 0.87f, -0.384f, 0.463f, -0.502f }; int lda = 2; ! float B[] = { -0.447f, 0.21f, 0.928f, -0.496f, 0.889f, -0.354f, -0.258f, -0.149f, 0.98f, -0.958f, 0.106f, -0.579f }; int ldb = 2; ! float B_expected[] = { 0.0692355f, 0.14563f, -0.0874638f, -0.0532654f, -0.116915f, -0.289728f, -0.242902f, 0.136003f, -0.314257f, -0.318533f, -0.400862f, 0.357622f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1762) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1762) imag"); }; }; *************** *** 2478,2493 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.916f, 0.909f, 0.834f, 0.38f, 0.391f, -0.412f, -0.714f, -0.456f }; int lda = 2; ! float B[] = { -0.151f, 0.818f, 0.717f, -0.812f, -0.649f, -0.107f, -0.454f, 0.785f, 0.86f, 0.992f, -0.244f, -0.242f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1771) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1771) imag"); }; }; --- 2478,2493 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.924f, -0.553f, 0.985f, -0.793f, 0.406f, 0.741f, -0.956f, 0.945f }; int lda = 2; ! float B[] = { 0.736f, -0.81f, 0.028f, 0.474f, 0.14f, -0.03f, -0.756f, 0.923f, -0.515f, 0.532f, -0.321f, 0.326f }; int ldb = 2; ! float B_expected[] = { -0.1398f, 0.3166f, 0.122042f, 0.0927314f, -0.039f, 0.023f, 0.135709f, -0.314263f, 0.1013f, -0.2111f, -0.0515973f, -0.29067f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1763) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1763) imag"); }; }; *************** *** 2503,2518 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.992f, 0.284f, -0.01f, 0.182f, 0.527f, -0.348f, -0.509f, 0.839f }; int lda = 2; ! float B[] = { 0.504f, -0.782f, -0.88f, 0.079f, 0.216f, 0.525f, 0.198f, 0.851f, -0.102f, -0.046f, 0.079f, -0.045f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1772) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1772) imag"); }; }; --- 2503,2518 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.04f, -0.41f, -0.643f, 0.988f, 0.86f, -0.281f, -0.017f, 0.389f }; int lda = 2; ! float B[] = { 0.204f, 0.524f, -0.558f, -0.736f, 0.26f, -0.202f, -0.757f, 0.346f, 0.917f, 0.541f, -0.108f, -0.965f }; int ldb = 2; ! float B_expected[] = { 0.059601f, -0.396251f, 0.060088f, -0.096554f, -0.338942f, -0.0950055f, -0.073098f, -0.071831f, 0.208251f, -0.444353f, 0.106223f, -0.05488f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1764) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1764) imag"); }; }; *************** *** 2528,2543 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.985f, 0.068f, -0.095f, -0.575f, -0.607f, 0.893f, 0.085f, 0.145f }; int lda = 2; ! float B[] = { -0.149f, 0.592f, 0.588f, -0.62f, -0.409f, -0.344f, 0.263f, 0.759f, -0.026f, -0.609f, 0.507f, -0.084f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1773) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1773) imag"); }; }; --- 2528,2543 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.375f, 0.153f, -0.343f, -0.742f, 0.563f, 0.473f, 0.451f, -0.433f }; int lda = 2; ! float B[] = { -0.804f, -0.016f, -0.715f, -0.902f, -0.89f, 0.155f, -0.408f, 0.419f, 0.078f, -0.691f, -0.717f, -0.637f }; int ldb = 2; ! float B_expected[] = { -0.0094443f, 0.0821961f, 0.3047f, 0.1991f, 0.347432f, -0.0186595f, 0.0805f, -0.1665f, -0.138523f, 0.381015f, 0.2788f, 0.1194f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1765) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1765) imag"); }; }; *************** *** 2553,2568 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.36f, 0.508f, -0.771f, -0.442f, -0.671f, -0.691f, -0.771f, 0.113f, 0.282f, 0.312f, 0.564f, -0.568f, -0.743f, 0.912f, -0.395f, 0.503f, -0.167f, -0.581f }; int lda = 3; ! float B[] = { -0.018f, 0.574f, -0.144f, -0.758f, 0.53f, 0.623f, -0.771f, -0.733f, 0.932f, -0.192f, 0.997f, 0.773f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1774) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1774) imag"); }; }; --- 2553,2568 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.867f, -0.597f, -0.577f, 0.735f, 0.827f, -0.104f, -0.861f, -0.802f, -0.288f, 0.293f, 0.593f, 0.228f, -0.469f, 0.942f, 0.193f, 0.591f, 0.241f, 0.382f }; int lda = 3; ! float B[] = { -0.812f, -0.874f, -0.18f, -0.81f, 0.023f, 0.352f, 0.559f, 0.237f, -0.835f, 0.037f, -0.762f, 0.782f }; int ldb = 3; ! float B_expected[] = { -0.331628f, -0.278177f, -0.0214727f, -0.156013f, -0.0496067f, -0.0088131f, 0.119788f, -0.469291f, -0.0804714f, -0.263663f, -0.0824792f, -0.132356f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1766) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1766) imag"); }; }; *************** *** 2578,2593 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.627f, 0.511f, -0.246f, -0.091f, 0.66f, -0.983f, 0.99f, 0.057f, -0.259f, 0.18f, 0.606f, 0.058f, -0.238f, 0.717f, 0.358f, -0.851f, -0.71f, -0.683f }; int lda = 3; ! float B[] = { -0.907f, 0.956f, 0.56f, -0.057f, 0.054f, -0.77f, 0.868f, -0.843f, 0.645f, -0.554f, -0.958f, 0.988f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1775) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1775) imag"); }; }; --- 2578,2593 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.258f, -0.812f, -0.858f, -0.107f, -0.151f, 0.785f, 0.717f, 0.992f, -0.649f, -0.242f, -0.454f, 0.916f, 0.86f, 0.834f, -0.244f, 0.391f, 0.818f, -0.714f }; int lda = 3; ! float B[] = { 0.163f, 0.441f, 0.54f, 0.679f, 0.071f, -0.76f, 0.345f, -0.956f, 0.654f, -0.217f, -0.892f, 0.106f }; int ldb = 3; ! float B_expected[] = { 0.296566f, -0.0905963f, -0.0393822f, -0.306541f, 0.0547f, 0.2351f, -0.0059345f, 0.0071855f, -0.402014f, -0.049978f, 0.257f, -0.121f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1767) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1767) imag"); }; }; *************** *** 2603,2618 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.882f, 0.431f, -0.868f, -0.098f, -0.006f, -0.639f, 0.757f, -0.009f, -0.821f, 0.45f, 0.347f, 0.801f, 0.314f, 0.936f, -0.725f, 0.956f, 0.536f, 0.771f }; int lda = 3; ! float B[] = { 0.38f, -0.435f, 0.977f, 0.296f, -0.624f, -0.53f, 0.73f, -0.837f, 0.105f, 0.189f, 0.362f, -0.664f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1776) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1776) imag"); }; }; --- 2603,2618 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.525f, 0.182f, 0.851f, -0.348f, -0.046f, 0.839f, -0.045f, -0.149f, -0.992f, 0.588f, -0.01f, -0.409f, 0.527f, 0.263f, -0.509f, -0.026f, 0.284f, 0.507f }; int lda = 3; ! float B[] = { 0.909f, 0.216f, 0.38f, 0.198f, -0.412f, -0.102f, -0.456f, 0.079f, 0.504f, -0.782f, -0.88f, 0.079f }; int ldb = 3; ! float B_expected[] = { -0.149757f, 0.0672651f, 0.129501f, 0.054878f, -0.0469462f, 0.0277224f, 0.0550599f, -0.0598423f, 0.244521f, -0.217471f, 0.0955519f, -0.37895f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1768) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1768) imag"); }; }; *************** *** 2628,2643 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.595f, -0.775f, 0.75f, 0.16f, -0.572f, 0.658f, 0.216f, 0.557f, -0.279f, 0.095f, -0.495f, 0.503f, 0.071f, -0.03f, -0.116f, 0.78f, -0.104f, 0.073f }; int lda = 3; ! float B[] = { 0.948f, 0.749f, -0.854f, 0.972f, 0.704f, 0.187f, 0.347f, 0.303f, -0.865f, 0.123f, -0.041f, 0.152f }; int ldb = 3; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1777) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1777) imag"); }; }; --- 2628,2643 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.893f, -0.758f, 0.145f, 0.623f, -0.018f, -0.733f, -0.144f, -0.192f, 0.53f, 0.773f, -0.771f, 0.36f, 0.932f, -0.771f, 0.997f, -0.671f, 0.574f, -0.771f }; int lda = 3; ! float B[] = { 0.592f, 0.985f, -0.62f, -0.095f, -0.344f, -0.607f, 0.759f, 0.085f, -0.609f, 0.068f, -0.084f, -0.575f }; int ldb = 3; ! float B_expected[] = { -0.2761f, -0.2363f, 0.280628f, -0.052484f, 0.306154f, -0.187624f, -0.2362f, 0.0504f, 0.200236f, -0.133908f, 0.0536278f, 0.0659354f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1769) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1769) imag"); }; }; *************** *** 2653,2668 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.617f, -0.331f, -0.074f, 0.719f, -0.469f, -0.852f, 0.25f, -0.175f, -0.719f, -0.613f, -0.321f, 0.973f, -0.337f, -0.35f, 0.607f, -0.553f, 0.688f, 0.463f }; int lda = 3; ! float B[] = { 0.568f, -0.471f, -0.947f, -0.205f, 0.835f, -0.859f, 0.27f, -0.599f, 0.171f, -0.514f, 0.939f, 0.176f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1778) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1778) imag"); }; }; --- 2653,2668 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.503f, -0.057f, -0.581f, -0.77f, -0.907f, -0.843f, 0.56f, -0.554f, 0.054f, 0.988f, 0.868f, -0.627f, 0.645f, -0.246f, -0.958f, 0.66f, 0.956f, 0.99f }; int lda = 3; ! float B[] = { 0.282f, -0.442f, 0.564f, -0.691f, -0.743f, 0.113f, -0.395f, 0.312f, -0.167f, -0.568f, 0.508f, 0.912f }; int ldb = 2; ! float B_expected[] = { 0.180092f, 0.260648f, -0.045069f, -0.102868f, -0.0964434f, -0.432702f, -0.0404678f, 0.280779f, 0.254359f, 0.0411062f, -0.453454f, 0.0281672f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1770) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1770) imag"); }; }; *************** *** 2678,2693 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { 0.99f, -0.857f, 0.728f, -0.31f, -0.506f, -0.393f, 0.97f, 0.282f, 0.375f, -0.286f, -0.496f, -0.057f, 0.186f, -0.34f, 0.608f, -0.52f, 0.921f, -0.875f }; int lda = 3; ! float B[] = { -0.929f, 0.885f, 0.864f, -0.548f, 0.393f, 0.391f, 0.033f, 0.186f, 0.949f, -0.435f, 0.986f, -0.995f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1779) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1779) imag"); }; }; --- 2678,2693 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { -0.851f, 0.296f, -0.683f, -0.53f, 0.38f, -0.837f, 0.977f, 0.189f, -0.624f, -0.664f, 0.73f, -0.882f, 0.105f, -0.868f, 0.362f, -0.006f, -0.435f, 0.757f }; int lda = 3; ! float B[] = { -0.259f, -0.091f, 0.606f, -0.983f, -0.238f, 0.057f, 0.358f, 0.18f, -0.71f, 0.058f, 0.511f, 0.717f }; int ldb = 2; ! float B_expected[] = { 0.241746f, 0.119591f, -0.0907286f, 0.148899f, 0.141237f, -0.0716576f, -0.205866f, -0.078918f, 0.2072f, -0.0884f, -0.225f, -0.164f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1771) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1771) imag"); }; }; *************** *** 2703,2718 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.101f, -0.92f, 0.969f, -0.017f, -0.016f, -0.024f, -0.11f, 0.219f, -0.287f, -0.937f, 0.619f, 0.166f, -0.068f, 0.753f, 0.374f, 0.076f, 0.79f, -0.64f }; int lda = 3; ! float B[] = { 0.255f, 0.564f, -0.478f, -0.818f, -0.043f, 0.224f, -0.268f, 0.253f, 0.021f, 0.654f, 0.98f, -0.774f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1780) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1780) imag"); }; }; --- 2703,2718 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.956f, 0.972f, 0.771f, 0.187f, 0.948f, 0.303f, -0.854f, 0.123f, 0.704f, 0.152f, 0.347f, 0.595f, -0.865f, 0.75f, -0.041f, -0.572f, 0.749f, 0.216f }; int lda = 3; ! float B[] = { -0.821f, -0.098f, 0.347f, -0.639f, 0.314f, -0.009f, -0.725f, 0.45f, 0.536f, 0.801f, 0.431f, 0.936f }; int ldb = 2; ! float B_expected[] = { 0.193607f, -0.29931f, 0.18163f, 0.255513f, 0.127098f, -0.0503344f, 0.101243f, 0.0097718f, -0.0060322f, -0.148016f, -0.251411f, -0.0777231f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1772) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1772) imag"); }; }; *************** *** 2728,2743 **** int M = 2; int N = 3; ! float alpha[2] = {0.0f, 0.0f}; ! float A[] = { -0.068f, -0.603f, -0.055f, 0.14f, 0.664f, 0.987f, 0.861f, -0.691f, -0.897f, -0.778f, 0.516f, -0.073f, -0.156f, -0.42f, 0.57f, 0.628f, 0.116f, 0.344f }; int lda = 3; ! float B[] = { 0.922f, 0.39f, -0.724f, 0.421f, 0.418f, 0.92f, -0.222f, 0.835f, 0.417f, -0.392f, 0.012f, -0.346f }; int ldb = 2; ! float B_expected[] = { 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1781) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1781) imag"); }; }; --- 2728,2743 ---- int M = 2; int N = 3; ! float alpha[2] = {-0.3f, 0.1f}; ! float A[] = { 0.78f, -0.205f, 0.073f, -0.859f, 0.568f, -0.599f, -0.947f, -0.514f, 0.835f, 0.176f, 0.27f, -0.617f, 0.171f, -0.074f, 0.939f, -0.469f, -0.471f, 0.25f }; int lda = 3; ! float B[] = { -0.279f, 0.16f, -0.495f, 0.658f, 0.071f, 0.557f, -0.116f, 0.095f, -0.104f, 0.503f, -0.775f, -0.03f }; int ldb = 2; ! float B_expected[] = { 0.0677f, -0.0759f, 0.0827f, -0.2469f, -0.0068598f, -0.107386f, 0.243424f, 0.0129156f, 0.142748f, -0.254568f, 0.461939f, -0.154419f }; cblas_ctrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], flteps, "ctrmm(case 1773) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], flteps, "ctrmm(case 1773) imag"); }; }; *************** *** 2754,2760 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.904, 0.243, 0.206, 0.68, -0.946, 0.946, -0.675, 0.729 }; int lda = 2; ! double B[] = { 0.427, 0.116, 0.916, -0.384, -0.372, -0.754, 0.148, 0.089, -0.924, 0.974, -0.307, -0.55 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2754,2760 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.463, 0.033, -0.929, 0.949, 0.864, 0.986, 0.393, 0.885 }; int lda = 2; ! double B[] = { -0.321, -0.852, -0.337, -0.175, 0.607, -0.613, 0.688, 0.973, -0.331, -0.35, 0.719, -0.553 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2763,2768 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1782) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1782) imag"); }; }; --- 2763,2768 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1774) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1774) imag"); }; }; *************** *** 2779,2785 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.898, 0.709, 0.719, -0.207, -0.841, -0.017, 0.202, -0.385 }; int lda = 2; ! double B[] = { 0.308, 0.507, -0.838, 0.594, -0.811, 0.152, 0.118, -0.024, -0.632, 0.992, -0.942, 0.901 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2779,2785 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.608, -0.393, 0.921, 0.282, -0.857, -0.286, -0.31, -0.057 }; int lda = 2; ! double B[] = { -0.548, 0.728, 0.391, -0.506, 0.186, 0.97, -0.435, 0.375, -0.995, -0.496, 0.99, 0.186 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2788,2793 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1783) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1783) imag"); }; }; --- 2788,2793 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1775) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1775) imag"); }; }; *************** *** 2804,2810 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.849, 0.455, -0.273, -0.668, 0.196, -0.985, -0.39, 0.564 }; int lda = 2; ! double B[] = { -0.874, 0.188, -0.039, 0.692, 0.33, 0.119, 0.012, 0.425, 0.787, -0.918, 0.739, -0.871 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2804,2810 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.253, 0.969, 0.654, -0.016, -0.774, -0.11, -0.101, -0.287 }; int lda = 2; ! double B[] = { -0.34, -0.268, -0.52, 0.021, -0.875, 0.98, 0.255, 0.564, -0.478, -0.818, -0.043, 0.224 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2813,2818 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1784) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1784) imag"); }; }; --- 2813,2818 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1776) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1776) imag"); }; }; *************** *** 2829,2835 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.325, 0.28, 0.902, -0.603, 0.091, -0.92, 0.209, -0.009 }; int lda = 2; ! double B[] = { -0.202, -0.53, -0.88, -0.688, -0.215, 0.837, 0.917, 0.755, 0.477, 0.892, -0.524, -0.741 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2829,2835 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.64, -0.222, 0.922, 0.417, -0.724, 0.012, 0.418, 0.39 }; int lda = 2; ! double B[] = { 0.619, -0.024, -0.068, 0.219, 0.374, -0.937, 0.79, 0.166, -0.92, 0.753, -0.017, 0.076 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2838,2843 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1785) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1785) imag"); }; }; --- 2838,2843 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1777) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1777) imag"); }; }; *************** *** 2854,2860 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.756, 0.874, 0.56, 0.157, -0.831, -0.991, -0.531, 0.813 }; int lda = 2; ! double B[] = { 0.271, 0.783, -0.861, 0.635, -0.088, 0.434, 0.256, -0.34, -0.724, -0.277, -0.604, 0.986 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2854,2860 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.57, 0.987, 0.116, -0.691, -0.603, -0.778, 0.14, -0.073 }; int lda = 2; ! double B[] = { 0.421, -0.055, 0.92, 0.664, 0.835, 0.861, -0.392, -0.897, -0.346, 0.516, -0.068, -0.156 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2863,2868 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1786) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1786) imag"); }; }; --- 2863,2868 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1778) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1778) imag"); }; }; *************** *** 2879,2885 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.371, -0.609, -0.812, -0.818, 0.45, -0.41, -0.704, -0.917 }; int lda = 2; ! double B[] = { -0.268, 0.929, 0.82, 0.253, -0.883, 0.497, -0.265, 0.623, 0.131, -0.946, -0.365, 0.333 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2879,2885 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.754, 0.904, 0.089, 0.206, 0.974, -0.946, -0.55, -0.675 }; int lda = 2; ! double B[] = { -0.42, -0.372, 0.628, 0.148, 0.344, -0.924, -0.802, -0.307, 0.427, 0.116, 0.916, -0.384 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2888,2893 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1787) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1787) imag"); }; }; --- 2888,2893 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1779) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1779) imag"); }; }; *************** *** 2904,2910 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.265, 0.8, -0.676, -0.592, 0.78, -0.838, -0.651, 0.115 }; int lda = 2; ! double B[] = { 0.942, 0.692, -0.516, 0.378, 0.028, 0.265, 0.289, -0.721, -0.25, -0.952, 0.463, -0.34 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2904,2910 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.152, -0.898, -0.024, 0.719, 0.992, -0.841, 0.901, 0.202 }; int lda = 2; ! double B[] = { 0.243, -0.811, 0.68, 0.118, 0.946, -0.632, 0.729, -0.942, 0.308, 0.507, -0.838, 0.594 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2913,2918 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1788) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1788) imag"); }; }; --- 2913,2918 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1780) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1780) imag"); }; }; *************** *** 2929,2935 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.852, -0.478, 0.16, 0.824, 0.073, 0.962, 0.509, -0.58 }; int lda = 2; ! double B[] = { -0.789, 0.015, -0.779, -0.565, 0.048, -0.095, -0.272, 0.405, 0.272, 0.082, -0.693, -0.365 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2929,2935 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.119, -0.849, 0.425, -0.273, -0.918, 0.196, -0.871, -0.39 }; int lda = 2; ! double B[] = { 0.709, 0.33, -0.207, 0.012, -0.017, 0.787, -0.385, 0.739, -0.874, 0.188, -0.039, 0.692 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2938,2943 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1789) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1789) imag"); }; }; --- 2938,2943 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1781) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1781) imag"); }; }; *************** *** 2954,2960 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.251, 0.28, -0.092, 0.724, 0.928, -0.309, -0.222, -0.791, 0.113, -0.528, 0.148, 0.421, -0.833, 0.371, 0.354, 0.616, 0.313, 0.323 }; int lda = 3; ! double B[] = { -0.769, -0.059, -0.068, 0.945, 0.938, -0.358, -0.17, 0.751, -0.248, -0.321, -0.818, 0.183 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2954,2960 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.837, -0.603, 0.755, -0.92, 0.892, -0.009, -0.741, 0.271, -0.325, -0.861, 0.902, -0.088, 0.091, 0.256, 0.209, -0.724, 0.28, -0.604 }; int lda = 3; ! double B[] = { 0.455, -0.215, -0.668, 0.917, -0.985, 0.477, 0.564, -0.524, -0.202, -0.53, -0.88, -0.688 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2963,2968 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1790) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1790) imag"); }; }; --- 2963,2968 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1782) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1782) imag"); }; }; *************** *** 2979,2985 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.707, -0.802, 0.13, -0.19, -0.564, -0.74, 0.118, -0.194, -0.124, -0.421, 0.665, 0.308, 0.505, -0.278, 0.588, 0.957, -0.727, 0.976 }; int lda = 3; ! double B[] = { 0.153, -0.09, -0.4, 0.669, 0.689, -0.238, -0.259, 0.891, 0.993, 0.996, -0.829, -0.736 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 2979,2985 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.991, 0.253, 0.813, 0.497, -0.268, 0.623, 0.82, -0.946, -0.883, 0.333, -0.265, -0.371, 0.131, -0.812, -0.365, 0.45, 0.929, -0.704 }; int lda = 3; ! double B[] = { 0.783, -0.756, 0.635, 0.56, 0.434, -0.831, -0.34, -0.531, -0.277, 0.874, 0.986, 0.157 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 2988,2993 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1791) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1791) imag"); }; }; --- 2988,2993 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1783) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1783) imag"); }; }; *************** *** 3004,3010 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.83, 0.316, -0.099, 0.824, 0.767, 0.662, 0.244, 0.872, 0.35, 0.969, -0.084, 0.907, -0.752, -0.675, 0.129, -0.649, -0.539, 0.969 }; int lda = 3; ! double B[] = { -0.145, 0.254, -0.497, -0.713, -0.742, 0.183, 0.272, -0.858, -0.606, -0.605, -0.807, 0.686 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 3004,3010 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.265, -0.592, -0.721, -0.838, -0.952, 0.115, -0.34, -0.789, -0.265, -0.779, -0.676, 0.048, 0.78, -0.272, -0.651, 0.272, 0.8, -0.693 }; int lda = 3; ! double B[] = { -0.609, 0.028, -0.818, 0.289, -0.41, -0.25, -0.917, 0.463, 0.942, 0.692, -0.516, 0.378 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 3013,3018 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1792) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1792) imag"); }; }; --- 3013,3018 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1784) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1784) imag"); }; }; *************** *** 3029,3035 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.091, 0.658, -0.834, -0.171, -0.126, -0.268, 0.879, -0.431, 0.678, -0.749, 0.136, -0.757, -0.578, 0.456, 0.978, -0.315, 0.333, 0.327 }; int lda = 3; ! double B[] = { 0.963, -0.859, 0.599, 0.856, -0.924, 0.382, -0.531, 0.567, -0.454, 0.018, 0.97, 0.578 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 3029,3035 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.962, 0.945, -0.58, -0.358, -0.769, 0.751, -0.068, -0.321, 0.938, 0.183, -0.17, 0.251, -0.248, -0.092, -0.818, 0.928, -0.059, -0.222 }; int lda = 3; ! double B[] = { 0.015, -0.852, -0.565, 0.16, -0.095, 0.073, 0.405, 0.509, 0.082, -0.478, -0.365, 0.824 }; int ldb = 3; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 3038,3043 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1793) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1793) imag"); }; }; --- 3038,3043 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1785) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1785) imag"); }; }; *************** *** 3054,3060 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.849, -0.819, 0.673, 0.574, -0.869, -0.969, -0.338, -0.097, -0.601, 0.903, 0.634, 0.313, 0.228, -0.028, 0.419, -0.762, 0.21, -0.532 }; int lda = 3; ! double B[] = { -0.283, 0.999, -0.356, -0.459, 0.508, -0.132, -0.804, 0.173, 0.779, -0.427, 0.019, 0.347 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 3054,3060 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.616, 0.669, 0.323, -0.238, 0.153, 0.891, -0.4, 0.996, 0.689, -0.736, -0.259, -0.707, 0.993, 0.13, -0.829, -0.564, -0.09, 0.118 }; int lda = 3; ! double B[] = { 0.113, 0.724, 0.148, -0.309, -0.833, -0.791, 0.354, -0.528, 0.313, 0.421, 0.28, 0.371 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 3063,3068 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1794) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1794) imag"); }; }; --- 3063,3068 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1786) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1786) imag"); }; }; *************** *** 3079,3085 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.117, -0.663, -0.95, -0.273, -0.497, -0.037, 0.084, -0.831, 0.023, -0.241, 0.063, -0.023, -0.498, -0.137, -0.77, 0.457, -0.021, -0.69 }; int lda = 3; ! double B[] = { 0.308, -0.004, 0.013, 0.354, 0.077, -0.944, -0.877, 0.741, -0.807, -0.3, 0.891, -0.056 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 3079,3085 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { 0.957, -0.713, 0.976, 0.183, -0.145, -0.858, -0.497, -0.605, -0.742, 0.686, 0.272, 0.83, -0.606, -0.099, -0.807, 0.767, 0.254, 0.244 }; int lda = 3; ! double B[] = { -0.124, -0.19, 0.665, -0.74, 0.505, -0.194, 0.588, -0.421, -0.727, 0.308, -0.802, -0.278 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 3088,3093 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1795) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1795) imag"); }; }; --- 3088,3093 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1787) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1787) imag"); }; }; *************** *** 3104,3110 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.964, -0.653, 0.379, 0.994, -0.378, -0.409, 0.24, -0.333, 0.558, -0.099, -0.402, -0.812, 0.421, 0.823, -0.771, 0.998, 0.697, 0.253 }; int lda = 3; ! double B[] = { 0.34, 0.479, 0.539, -0.133, 0.876, -0.347, 0.706, -0.623, 0.399, 0.903, -0.7, -0.088 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 3104,3110 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.649, 0.856, 0.969, 0.382, 0.963, 0.567, 0.599, 0.018, -0.924, 0.578, -0.531, -0.091, -0.454, -0.834, 0.97, -0.126, -0.859, 0.879 }; int lda = 3; ! double B[] = { 0.35, 0.824, -0.084, 0.662, -0.752, 0.872, 0.129, 0.969, -0.539, 0.907, 0.316, -0.675 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 3113,3118 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1796) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1796) imag"); }; }; --- 3113,3118 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1788) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1788) imag"); }; }; *************** *** 3129,3135 **** int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.104, 0.643, -0.253, -0.988, -0.051, -0.805, 0.451, -0.421, -0.177, -0.534, -0.714, -0.581, -0.177, -0.582, -0.57, 0.259, -0.66, -0.864 }; int lda = 3; ! double B[] = { 0.636, -0.365, -0.107, -0.279, 0.425, 0.976, 0.657, 0.294, 0.827, 0.187, 0.353, 0.31 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; --- 3129,3135 ---- int N = 3; double alpha[2] = {0, 0}; ! double A[] = { -0.315, -0.459, 0.327, -0.132, -0.283, 0.173, -0.356, -0.427, 0.508, 0.347, -0.804, -0.849, 0.779, 0.673, 0.019, -0.869, 0.999, -0.338 }; int lda = 3; ! double B[] = { 0.678, -0.171, 0.136, -0.268, -0.578, -0.431, 0.978, -0.749, 0.333, -0.757, 0.658, 0.456 }; int ldb = 2; double B_expected[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; *************** *** 3138,3143 **** int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1797) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1797) imag"); }; }; --- 3138,3143 ---- int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1789) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1789) imag"); }; }; *************** *** 3153,3168 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.273, 0.812, 0.295, -0.415, -0.227, 0.901, 0.623, 0.786 }; int lda = 2; ! double B[] = { -0.539, -0.551, -0.969, 0.09, -0.581, -0.594, -0.833, 0.457, -0.284, 0.434, -0.459, -0.662 }; int ldb = 3; ! double B_expected[] = { -0.0312704, 0.2064538, 0.1775109, 0.1949157, -0.0337211, 0.2225517, 0.410638, -0.033917, 0.182384, -0.219409, 0.1257905, 0.1938415 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1798) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1798) imag"); }; }; --- 3153,3168 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.532, -0.877, 0.308, -0.807, 0.013, 0.891, 0.077, -0.004 }; int lda = 2; ! double B[] = { 0.634, -0.969, 0.228, -0.097, 0.419, 0.903, 0.21, 0.313, -0.819, -0.028, 0.574, -0.762 }; int ldb = 3; ! double B_expected[] = { 0.004051, -0.1187101, 0.0148352, -0.0206365, 0.0847859, 0.0569023, 0.0786829, -0.0569289, 0.0212752, -0.007123, 0.0120979, 0.0898923 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1790) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1790) imag"); }; }; *************** *** 3178,3193 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.323, 0.02, 0.718, 0.152, 0.665, 0.289, 0.317, 0.705 }; int lda = 2; ! double B[] = { 0.448, -0.75, 0.851, 0.172, -0.244, 0.398, 0.602, 0.31, -0.017, 0.181, -0.119, 0.402 }; int ldb = 3; ! double B_expected[] = { -0.0594, 0.2698, -0.2725, 0.0335, 0.0334, -0.1438, -0.2952588, 0.1518876, -0.213747, -0.073367, 0.0413388, -0.2306716 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1799) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1799) imag"); }; }; --- 3178,3193 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.77, -0.037, -0.021, -0.831, -0.663, -0.241, -0.273, -0.023 }; int lda = 2; ! double B[] = { 0.354, -0.95, -0.944, -0.497, 0.741, 0.084, -0.3, 0.023, -0.056, 0.063, -0.117, -0.498 }; int ldb = 3; ! double B_expected[] = { 0.095, 0.0354, 0.0497, -0.0944, -0.0084, 0.0741, 0.0251224, -0.1096884, -0.0857901, -0.0449183, 0.1115535, -0.0062757 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1791) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1791) imag"); }; }; *************** *** 3203,3218 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.578, 0.018, -0.093, 0.964, 0.414, -0.729, 0.696, 0.874 }; int lda = 2; ! double B[] = { -0.735, 0.788, -0.942, -0.71, -0.254, 0.265, 0.304, 0.218, 0.247, -0.172, 0.419, 0.448 }; int ldb = 3; ! double B_expected[] = { -0.1486214, 0.2495598, -0.1744531, 0.0107667, -0.1648579, 0.1475263, -0.048058, -0.123122, -0.1062886, 0.0033742, -0.037823, -0.213397 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1800) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1800) imag"); }; }; --- 3203,3218 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.623, 0.379, 0.903, -0.378, -0.088, 0.24, -0.964, 0.558 }; int lda = 2; ! double B[] = { -0.137, 0.706, 0.457, 0.399, -0.69, -0.7, 0.34, 0.479, 0.539, -0.133, 0.876, -0.347 }; int ldb = 3; ! double B_expected[] = { 0.0452313, -0.0327103, -0.006569, -0.0451444, -0.0415366, 0.0701362, 0.0272036, -0.0595042, -0.0428974, -0.0445382, -0.0823316, -0.0650838 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1792) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1792) imag"); }; }; *************** *** 3228,3243 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.358, -0.773, -0.065, 0.532, -0.319, 0.455, 0.578, 0.493 }; int lda = 2; ! double B[] = { 0.744, -0.958, 0.162, 0.555, -0.131, 0.971, -0.467, 0.175, -0.794, 0.191, 0.361, 0.882 }; int ldb = 3; ! double B_expected[] = { -0.1213734, 0.4492278, -0.1117944, -0.0070022, 0.108851, -0.320916, 0.1226, -0.0992, 0.2191, -0.1367, -0.1965, -0.2285 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1801) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1801) imag"); }; }; --- 3228,3243 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.253, 0.657, 0.636, 0.827, -0.107, 0.353, 0.425, -0.365 }; int lda = 2; ! double B[] = { -0.402, -0.409, 0.421, -0.333, -0.771, -0.099, 0.697, -0.812, -0.653, 0.823, 0.994, 0.998 }; int ldb = 3; ! double B_expected[] = { 0.0076075, -0.0189943, 0.065157, 0.0200352, -0.0145096, -0.1229652, 0.0812, 0.0697, -0.0823, -0.0653, -0.0998, 0.0994 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1793) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1793) imag"); }; }; *************** *** 3253,3268 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.354, -0.504, -0.177, 0.186, -0.762, -0.506, 0.758, -0.994 }; int lda = 2; ! double B[] = { -0.944, 0.562, 0.142, 0.742, 0.632, -0.627, -0.101, 0.476, 0.476, 0.675, 0.912, -0.33 }; int ldb = 2; ! double B_expected[] = { -0.21291, -0.021306, -0.601736, 0.043676, 0.1715778, -0.0250026, 0.0587596, -0.2259812, -0.0036234, 0.1608258, 0.0885532, 0.6077736 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1802) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1802) imag"); }; }; --- 3253,3268 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.57, -0.805, -0.66, -0.421, 0.643, -0.534, -0.988, -0.581 }; int lda = 2; ! double B[] = { -0.279, -0.253, 0.976, -0.051, 0.294, 0.451, 0.187, -0.177, 0.31, -0.714, -0.104, -0.177 }; int ldb = 2; ! double B_expected[] = { -0.0368805, -0.0044635, 0.0530361, -0.1308418, 0.049374, 0.0195475, -0.0199226, 0.0142283, -0.015743, -0.075147, 0.0389342, -0.0182031 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1794) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1794) imag"); }; }; *************** *** 3278,3293 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.001, 0.015, 0.942, 0.497, -0.104, 0.803, 0.679, 0.026 }; int lda = 2; ! double B[] = { 0.889, -0.216, -0.912, -0.263, -0.329, 0.681, 0.332, -0.5, -0.484, 0.741, -0.728, -0.912 }; int ldb = 2; ! double B_expected[] = { -0.2451, 0.1537, 0.2019693, -0.2251001, 0.0306, -0.2372, 0.1376892, 0.2324406, 0.0711, -0.2707, 0.5195777, 0.2860461 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1803) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1803) imag"); }; }; --- 3278,3293 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.594, 0.273, 0.457, 0.295, 0.434, -0.227, -0.662, 0.623 }; int lda = 2; ! double B[] = { -0.582, -0.581, 0.259, -0.833, -0.864, -0.284, 0.965, -0.459, -0.539, -0.551, -0.969, 0.09 }; int ldb = 2; ! double B_expected[] = { 0.0581, -0.0582, 0.095304, -0.0125475, 0.0284, -0.0864, 0.0386128, 0.0525556, 0.0551, -0.0539, 0.0026781, -0.1328003 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1795) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1795) imag"); }; }; *************** *** 3303,3318 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.563, 0.394, -0.902, -0.27, 0.461, 0.939, -0.597, 0.803 }; int lda = 2; ! double B[] = { 0.535, -0.111, 0.379, -0.036, 0.803, -0.341, 0.667, 0.001, 0.775, 0.714, 0.908, -0.508 }; int ldb = 2; ! double B_expected[] = { 0.1623722, -0.1219324, 0.0266236, -0.1174842, 0.2429924, -0.1901218, 0.0662002, -0.2004014, 0.4905027, -0.2023089, -0.0629944, -0.3231352 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1804) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1804) imag"); }; }; --- 3303,3318 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.398, 0.323, 0.31, 0.718, 0.181, 0.665, 0.402, 0.317 }; int lda = 2; ! double B[] = { 0.812, -0.244, -0.415, 0.602, 0.901, -0.017, 0.786, -0.119, 0.448, -0.75, 0.851, 0.172 }; int ldb = 2; ! double B_expected[] = { -0.0053814, -0.0158898, -0.0110449, -0.0357664, -0.0811715, 0.0693191, -0.0201324, 0.0353695, -0.0510542, 0.0560868, -0.0338911, 0.0287578 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1796) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1796) imag"); }; }; *************** *** 3328,3343 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.159, 0.032, 0.785, 0.049, -0.128, 0.132, -0.735, -0.235 }; int lda = 2; ! double B[] = { -0.331, -0.257, -0.725, 0.689, -0.793, 0.398, 0.127, -0.098, -0.498, -0.307, -0.019, 0.517 }; int ldb = 2; ! double B_expected[] = { 0.2553318, -0.1678906, 0.1486, -0.2792, 0.1738216, -0.1670382, -0.0283, 0.0421, 0.151683, -0.083199, -0.046, -0.157 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1805) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1805) imag"); }; }; --- 3328,3343 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.265, -0.578, 0.218, -0.093, -0.172, 0.414, 0.448, 0.696 }; int lda = 2; ! double B[] = { 0.02, -0.254, 0.152, 0.304, 0.289, 0.247, 0.705, 0.419, -0.735, 0.788, -0.942, -0.71 }; int ldb = 2; ! double B_expected[] = { 0.0201864, 0.0081408, -0.0304, 0.0152, -0.0272777, 0.0481657, -0.0419, 0.0705, -0.0720826, -0.1006386, 0.071, -0.0942 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1797) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1797) imag"); }; }; *************** *** 3353,3368 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.416, -0.424, -0.088, 0.614, -0.371, 0.983, -0.737, -0.647, 0.321, -0.518, 0.058, -0.533, 0.153, 0.283, 0.342, 0.993, -0.071, 0.225 }; int lda = 3; ! double B[] = { -0.09, -0.844, -0.707, 0.903, 0.632, -0.294, -0.558, 0.74, -0.99, -0.855, -0.189, 0.543 }; int ldb = 3; ! double B_expected[] = { 0.1668304, -0.2576208, -0.0664464, -0.0785782, -0.0226908, -0.0467944, -0.1091876, 0.3667652, 0.1076073, -0.1594011, 0.0407346, 0.0134478 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1806) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1806) imag"); }; }; --- 3353,3368 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.971, 0.532, 0.175, 0.455, 0.191, 0.493, 0.882, -0.944, 0.358, 0.142, -0.065, 0.632, -0.319, -0.101, 0.578, 0.476, -0.773, 0.912 }; int lda = 3; ! double B[] = { 0.018, -0.131, 0.964, -0.467, -0.729, -0.794, 0.874, 0.361, 0.744, -0.958, 0.162, 0.555 }; int ldb = 3; ! double B_expected[] = { 0.0271781, 0.0720558, 0.0439416, 0.0960619, 0.0051086, 0.1287645, -0.117224, 0.0980019, 0.0171007, 0.0041098, 0.0281271, -0.0631386 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1798) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1798) imag"); }; }; *************** *** 3378,3393 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.67, -0.423, -0.165, 0.157, -0.43, 0.674, -0.35, 0.434, 0.972, -0.116, -0.029, 0.316, 0.914, 0.321, 0.132, 0.034, -0.907, -0.401 }; int lda = 3; ! double B[] = { -0.396, 0.71, -0.588, 0.709, -0.024, -0.704, -0.988, 0.656, 0.665, -0.085, -0.778, 0.264 }; int ldb = 3; ! double B_expected[] = { -0.1010812, -0.2287206, 0.0372688, -0.2530336, 0.0776, 0.2088, 0.264679, -0.133739, -0.147391, 0.161965, 0.207, -0.157 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1807) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1807) imag"); }; }; --- 3378,3393 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.506, -0.263, -0.994, 0.681, 0.889, -0.5, -0.912, 0.741, -0.329, -0.912, 0.332, -0.001, -0.484, 0.942, -0.728, -0.104, -0.216, 0.679 }; int lda = 3; ! double B[] = { 0.562, -0.354, 0.742, -0.177, -0.627, -0.762, 0.476, 0.758, 0.675, -0.504, -0.33, 0.186 }; int ldb = 3; ! double B_expected[] = { 0.0036678, -0.0993414, 0.0429357, 0.0533074, 0.0762, -0.0627, -0.2049005, -0.0052096, 0.0441918, 0.0565626, -0.0186, -0.033 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1799) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1799) imag"); }; }; *************** *** 3403,3418 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.756, -0.149, -0.706, -0.162, -0.145, 0.67, 0.416, -0.27, -0.916, 0.995, -0.863, -0.25, -0.079, 0.248, -0.191, -0.195, 0.981, 0.834 }; int lda = 3; ! double B[] = { 0.329, 0.921, -0.018, -0.02, 0.095, -0.892, -0.105, -0.799, -0.583, 0.564, -0.436, 0.965 }; int ldb = 3; ! double B_expected[] = { -0.1805114, -0.1555812, -0.1560482, -0.0462226, -0.0967127, 0.2921239, 0.1183692, 0.1566766, 0.2260429, 0.3915667, 0.1788155, -0.2682995 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1808) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1808) imag"); }; }; --- 3403,3418 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.341, -0.27, 0.001, 0.939, 0.714, 0.803, -0.508, -0.331, -0.563, -0.725, -0.902, -0.793, 0.461, 0.127, -0.597, -0.498, 0.394, -0.019 }; int lda = 3; ! double B[] = { 0.015, 0.803, 0.497, 0.667, 0.803, 0.775, 0.026, 0.908, 0.535, -0.111, 0.379, -0.036 }; int ldb = 3; ! double B_expected[] = { 0.0277873, 0.0211695, 0.1148735, 0.0461937, -0.0016476, 0.0271498, 0.0316648, 0.0236294, 0.0795252, -0.009434, -0.0200342, -0.0329361 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1800) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1800) imag"); }; }; *************** *** 3428,3443 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.552, -0.668, -0.013, 0.088, -0.766, 0.977, 0.088, -0.06, -0.311, 0.872, -0.328, -0.01, 0.659, -0.327, -0.276, 0.553, -0.734, -0.079 }; int lda = 3; ! double B[] = { -0.87, 0.728, 0.997, -0.36, -0.046, -0.505, 0.082, -0.787, 0.414, 0.965, -0.048, -0.591 }; int ldb = 3; ! double B_expected[] = { 0.1882, -0.3054, -0.2648624, 0.1695328, 0.0462155, -0.3187195, 0.0541, 0.2443, -0.2012812, -0.2298476, 0.3871505, 0.2622315 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1809) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1809) imag"); }; }; --- 3428,3443 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.132, 0.903, -0.235, -0.294, -0.09, 0.74, -0.707, -0.855, 0.632, 0.543, -0.558, -0.416, -0.99, -0.088, -0.189, -0.371, -0.844, -0.737 }; int lda = 3; ! double B[] = { -0.257, 0.159, 0.689, 0.785, 0.398, -0.128, -0.098, -0.735, -0.307, 0.032, 0.517, 0.049 }; int ldb = 3; ! double B_expected[] = { -0.0159, -0.0257, -0.0892322, 0.1006644, 0.0666778, 0.0827436, 0.0735, -0.0098, -0.0635435, -0.0866139, -0.0893123, 0.0619235 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1801) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1801) imag"); }; }; *************** *** 3453,3468 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.349, -0.072, 0.545, 0.212, -0.306, -0.009, 0.757, -0.925, 0.159, 0.308, 0.476, 0.1, 0.725, -0.757, -0.245, 0.571, 0.515, 0.993 }; int lda = 3; ! double B[] = { 0.865, 0.501, 0.165, -0.63, -0.513, 0.351, -0.521, -0.062, 0.54, -0.634, -0.719, 0.216 }; int ldb = 2; ! double B_expected[] = { -0.054193, 0.023274, 0.1487731, -0.3509657, -0.0481592, -0.1044386, 0.0666567, 0.1890461, -0.2932696, 0.0278532, 0.2357046, 0.1223408 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1810) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1810) imag"); }; }; --- 3453,3468 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.993, 0.709, 0.225, -0.704, -0.396, 0.656, -0.588, -0.085, -0.024, 0.264, -0.988, -0.67, 0.665, -0.165, -0.778, -0.43, 0.71, -0.35 }; int lda = 3; ! double B[] = { 0.321, 0.614, 0.058, 0.983, 0.153, -0.647, 0.342, -0.518, -0.071, -0.533, -0.424, 0.283 }; int ldb = 2; ! double B_expected[] = { -0.0861992, -0.0396692, -0.155091, -0.1119744, -0.0501124, -0.0006816, -0.0064866, 0.0580106, 0.035358, -0.023696, -0.034933, -0.020199 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1802) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1802) imag"); }; }; *************** *** 3478,3493 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.941, -0.496, 0.492, 0.356, 0.353, 0.346, -0.519, -0.86, -0.677, -0.154, 0.313, 0.228, -0.56, -0.451, -0.78, 0.174, -0.663, 0.22 }; int lda = 3; ! double B[] = { 0.162, -0.345, 0.188, 0.578, -0.675, 0.775, -0.018, 0.198, -0.222, -0.52, 0.672, -0.438 }; int ldb = 2; ! double B_expected[] = { -0.3430472, 0.0394834, 0.0185782, -0.1505014, 0.0092108, -0.3837276, 0.0741276, -0.2435652, 0.1186, 0.1338, -0.1578, 0.1986 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1811) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1811) imag"); }; }; --- 3478,3493 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.034, -0.02, -0.401, -0.892, 0.329, -0.799, -0.018, 0.564, 0.095, 0.965, -0.105, 0.756, -0.583, -0.706, -0.436, -0.145, 0.921, 0.416 }; int lda = 3; ! double B[] = { 0.972, 0.157, -0.029, 0.674, 0.914, 0.434, 0.132, -0.116, -0.907, 0.316, -0.423, 0.321 }; int ldb = 2; ! double B_expected[] = { -0.1120798, 0.1462649, -0.0862031, 0.0507283, -0.0427739, 0.1355272, 0.0194621, 0.0362973, -0.0316, -0.0907, -0.0321, -0.0423 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1803) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1803) imag"); }; }; *************** *** 3503,3518 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.592, 0.708, 0.442, 0.212, 0.815, -0.638, 0.55, -0.512, -0.487, 0.181, 0.708, -0.126, 0.408, -0.51, 0.175, 0.114, -0.919, -0.268 }; int lda = 3; ! double B[] = { 0.858, -0.004, 0.59, -0.395, -0.943, 0.824, 0.01, 0.455, -0.775, 0.062, -0.644, 0.03 }; int ldb = 2; ! double B_expected[] = { -0.21374, -0.130452, -0.20707, 0.00773, -0.16787, 0.186571, -0.05026, 0.106515, -0.2887485, -0.0045065, -0.2446935, 0.1590455 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1812) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1812) imag"); }; }; --- 3503,3518 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { -0.195, -0.36, 0.834, -0.505, -0.87, -0.787, 0.997, 0.965, -0.046, -0.591, 0.082, 0.552, 0.414, -0.013, -0.048, -0.766, 0.728, 0.088 }; int lda = 3; ! double B[] = { -0.916, -0.162, -0.863, 0.67, -0.079, -0.27, -0.191, 0.995, 0.981, -0.25, -0.149, 0.248 }; int ldb = 2; ! double B_expected[] = { -0.036135, 0.01203, -0.018003, 0.0409485, -0.0386581, -0.100169, -0.1061706, 0.0215439, -0.0700412, 0.1548156, -0.0239871, 0.0582902 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1804) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1804) imag"); }; }; *************** *** 3528,3543 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.988, -0.915, 0.963, 0.103, 0.921, 0.555, 0.846, 0.148, -0.43, 0.336, -0.371, 0.381, -0.487, 0.717, 0.881, -0.777, 0.774, -0.962 }; int lda = 3; ! double B[] = { -0.805, 0.605, 0.481, 0.163, -0.057, -0.017, -0.886, 0.809, 0.875, 0.905, 0.095, 0.894 }; int ldb = 2; ! double B_expected[] = { 0.181, -0.262, -0.1606, -0.0008, 0.220089, -0.234263, 0.0303246, -0.3486122, -0.0476352, -0.3174616, -0.2077412, -0.1552106 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1813) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1813) imag"); }; }; --- 3528,3543 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 0.1}; ! double A[] = { 0.553, -0.63, -0.079, 0.351, 0.865, -0.062, 0.165, -0.634, -0.513, 0.216, -0.521, 0.349, 0.54, 0.545, -0.719, -0.306, 0.501, 0.757 }; int lda = 3; ! double B[] = { -0.311, 0.088, -0.328, 0.977, 0.659, -0.06, -0.276, 0.872, -0.734, -0.01, -0.668, -0.327 }; int ldb = 2; ! double B_expected[] = { -0.0088, -0.0311, -0.0977, -0.0328, 0.0176113, 0.0652681, -0.0679689, -0.0593015, -0.0346653, -0.1319958, 0.0012195, -0.1051678 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1805) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1805) imag"); }; }; *************** *** 3553,3568 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.513, -0.385, -0.524, 0.726, 0.823, 0.839, -0.355, -0.881 }; int lda = 2; ! double B[] = { -0.707, 0.016, 0.481, 0.935, 0.052, 0.719, 0.277, 0.169, 0.894, 0.352, -0.216, -0.741 }; int ldb = 3; ! double B_expected[] = { -0.078919, 0.119774, 0.2114654, 0.0276682, 0.12593, 0.074299, -0.109352, -0.193196, 0.077864, 0.032876, -0.3330992, 0.2249494 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1814) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1814) imag"); }; }; --- 3553,3568 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.993, -0.018, 0.162, -0.222, 0.188, 0.672, -0.675, -0.345 }; int lda = 2; ! double B[] = { 0.476, -0.009, 0.725, -0.925, -0.245, 0.308, 0.515, 0.1, -0.072, -0.757, 0.212, 0.571 }; int ldb = 3; ! double B_expected[] = { 0.000369, 0.47283, 0.905475, 0.736575, -0.301434, -0.248829, -0.214389, -0.303015, -0.497235, 0.632565, 0.316779, -0.448161 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1806) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1806) imag"); }; }; *************** *** 3578,3593 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.136, -0.37, 0.669, -0.731, -0.4, 0.638, 0.833, -0.29 }; int lda = 2; ! double B[] = { -0.861, -0.278, 0.941, 0.822, 0.88, 0.501, 0.911, -0.502, 0.573, -0.498, -0.517, -0.518 }; int ldb = 3; ! double B_expected[] = { 0.2861, -0.0027, -0.3645, -0.1525, -0.3141, -0.0623, -0.0297254, 0.4490328, -0.254473, -0.161772, 0.0423084, -0.1675858 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1815) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1815) imag"); }; }; --- 3578,3593 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.78, 0.346, -0.663, -0.86, -0.496, -0.154, 0.356, 0.228 }; int lda = 2; ! double B[] = { 0.578, 0.492, 0.775, 0.353, 0.198, -0.519, -0.52, -0.677, -0.438, 0.313, 0.941, -0.56 }; int ldb = 3; ! double B_expected[] = { -0.492, 0.578, -0.353, 0.775, 0.519, 0.198, 0.506116, -1.326334, -0.745461, -1.255405, 0.045623, 1.256066 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1807) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1807) imag"); }; }; *************** *** 3603,3618 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.641, -0.058, 0.246, 0.884, -0.686, 0.123, -0.869, 0.891 }; int lda = 2; ! double B[] = { 0.107, -0.333, 0.556, 0.124, 0.206, 0.049, -0.573, -0.9, -0.417, -0.734, -0.719, 0.76 }; int ldb = 3; ! double B_expected[] = { -0.1591469, -0.1071617, -0.2301499, -0.1454657, -0.1758188, 0.1884616, -0.0380754, -0.4181892, -0.013453, -0.33198, -0.3886102, 0.1361404 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1816) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1816) imag"); }; }; --- 3603,3618 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.455, 0.442, 0.062, 0.815, 0.03, 0.55, 0.592, -0.487 }; int lda = 2; ! double B[] = { -0.451, 0.01, 0.174, -0.775, 0.22, -0.644, 0.858, -0.004, 0.59, -0.395, -0.943, 0.824 }; int ldb = 3; ! double B_expected[] = { 0.268128, -0.177245, 0.765883, -0.46293, -0.15311, 0.240362, -0.415478, 0.509884, -0.05349, 0.541645, -0.028567, -0.959544 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1808) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1808) imag"); }; }; *************** *** 3628,3643 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.083, 0.441, 0.995, 0.338, -0.988, -0.828, -0.254, -0.036 }; int lda = 2; ! double B[] = { -0.792, 0.552, 0.033, -0.178, -0.225, 0.553, 0.348, 0.229, -0.151, -0.594, 0.711, -0.335 }; int ldb = 3; ! double B_expected[] = { 0.3362416, -0.3167112, -0.2305904, -0.0177512, 0.0477576, -0.5068152, -0.1273, -0.0339, 0.1047, 0.1631, -0.1798, 0.1716 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1817) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1817) imag"); }; }; --- 3628,3643 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.268, -0.886, -0.805, 0.875, 0.481, 0.095, -0.057, 0.605 }; int lda = 2; ! double B[] = { 0.708, -0.638, 0.408, -0.512, 0.175, 0.181, -0.919, -0.126, 0.708, -0.51, 0.212, 0.114 }; int ldb = 3; ! double B_expected[] = { 0.611301, 0.253991, 0.82457, 0.700098, -0.215694, 0.287802, 0.126, -0.919, 0.51, 0.708, -0.114, 0.212 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1809) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1809) imag"); }; }; *************** *** 3653,3668 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.105, 0.584, -0.33, -0.182, -0.096, -0.257, 0.327, -0.123 }; int lda = 2; ! double B[] = { -0.249, -0.274, -0.197, -0.899, 0.85, -0.318, 0.596, -0.237, 0.179, 0.046, -0.859, -0.459 }; int ldb = 2; ! double B_expected[] = { 0.0441837, -0.0536099, -0.0065547, 0.1208159, 0.0819176, 0.1492908, -0.0917294, -0.0510192, -0.0037271, 0.0344777, 0.0974489, 0.0389047 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1818) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1818) imag"); }; }; --- 3653,3668 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.881, 0.555, 0.774, 0.148, -0.915, 0.336, 0.103, 0.381 }; int lda = 2; ! double B[] = { 0.163, 0.963, -0.017, 0.921, 0.809, 0.846, 0.905, -0.43, 0.894, -0.371, -0.988, -0.487 }; int ldb = 2; ! double B_expected[] = { -0.757938, 0.678068, 0.834573, 0.523573, -0.296331, 1.182259, 1.435009, -0.526594, 0.823021, 0.581709, -0.365348, -1.229977 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1810) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1810) imag"); }; }; *************** *** 3678,3693 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.972, 0.794, -0.968, -0.406, -0.2, -0.512, 0.436, 0.161 }; int lda = 2; ! double B[] = { 0.817, -0.17, -0.613, -0.565, -0.494, 0.129, -0.593, -0.516, -0.695, -0.42, 0.848, 0.122 }; int ldb = 2; ! double B_expected[] = { -0.2281, 0.1327, 0.2180776, -0.0351272, 0.1353, -0.0881, 0.2475472, 0.1823936, 0.2505, 0.0565, -0.345628, 0.165156 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1819) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1819) imag"); }; }; --- 3678,3693 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.719, -0.513, 0.169, -0.524, 0.352, 0.823, -0.741, -0.355 }; int lda = 2; ! double B[] = { 0.717, 0.052, -0.777, 0.277, -0.962, 0.894, 0.905, -0.216, -0.707, 0.016, 0.481, 0.935 }; int ldb = 2; ! double B_expected[] = { -0.052, 0.717, 0.294787, -0.48182, -0.894, -0.962, -0.890414, 1.302138, -0.016, -0.707, -1.522493, 0.245304 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1811) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1811) imag"); }; }; *************** *** 3703,3718 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.373, -0.316, -0.052, 0.025, -0.878, 0.612, 0.486, 0.953 }; int lda = 2; ! double B[] = { -0.626, 0.408, 0.536, 0.66, -0.666, -0.127, 0.622, 0.036, -0.761, 0.773, -0.137, 0.074 }; int ldb = 2; ! double B_expected[] = { 0.1214746, -0.0093742, -0.247838, 0.145962, 0.0994439, 0.0586017, -0.043453, 0.206241, 0.1510011, -0.0661437, -0.0178345, -0.0495635 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1820) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1820) imag"); }; }; --- 3703,3718 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.501, -0.136, -0.502, 0.669, -0.498, -0.4, -0.518, 0.833 }; int lda = 2; ! double B[] = { -0.385, 0.88, 0.726, 0.911, 0.839, 0.573, -0.881, -0.517, -0.861, -0.278, 0.941, 0.822 }; int ldb = 2; ! double B_expected[] = { 0.554496, -0.067558, 1.076656, 0.382795, -1.2501, 0.4388, -1.001679, 0.025697, 1.298547, -0.316017, 1.209649, 0.197288 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1812) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1812) imag"); }; }; *************** *** 3728,3743 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.621, -0.252, -0.942, 0.073, 0.416, -0.724, -0.972, 0.028 }; int lda = 2; ! double B[] = { -0.006, 0.427, 0.292, -0.212, -0.319, -0.08, -0.401, 0.465, -0.493, -0.529, 0.003, -0.19 }; int ldb = 2; ! double B_expected[] = { 0.0284232, -0.2112704, -0.0664, 0.0928, 0.0210696, 0.1558958, 0.0738, -0.1796, 0.1879327, 0.0541021, 0.0181, 0.0573 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1821) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1821) imag"); }; }; --- 3728,3743 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.049, 0.641, -0.9, 0.246, -0.734, -0.686, 0.76, -0.869 }; int lda = 2; ! double B[] = { -0.37, 0.206, -0.731, -0.573, 0.638, -0.417, -0.29, -0.719, 0.107, -0.333, 0.556, 0.124 }; int ldb = 2; ! double B_expected[] = { -0.901526, 0.146942, 0.573, -0.731, -0.30144, 0.722126, 0.719, -0.29, 0.581376, -0.362896, -0.124, 0.556 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1813) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1813) imag"); }; }; *************** *** 3753,3768 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.415, 0.215, 0.507, 0.094, 0.697, 0.633, 0.206, -0.383, -0.974, 0.734, -0.533, -0.15, -0.982, -0.232, -0.297, 0.501, -0.092, 0.663 }; int lda = 3; ! double B[] = { 0.812, 0.323, 0.294, -0.423, -0.85, 0.043, -0.338, -0.568, 0.976, -0.375, 0.913, -0.119 }; int ldb = 3; ! double B_expected[] = { 0.2153111, -0.0775367, 0.0404927, -0.0287599, -0.0879721, -0.1572073, -0.2481947, 0.2941819, 0.5234716, -0.1242382, 0.108305, 0.162022 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1822) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1822) imag"); }; }; --- 3753,3768 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.553, 0.338, 0.229, -0.828, -0.594, -0.036, -0.335, -0.249, 0.083, -0.197, 0.995, 0.85, -0.988, 0.596, -0.254, 0.179, 0.441, -0.859 }; int lda = 3; ! double B[] = { -0.058, -0.225, 0.884, 0.348, 0.123, -0.151, 0.891, 0.711, -0.792, 0.552, 0.033, -0.178 }; int ldb = 3; ! double B_expected[] = { -0.800945, -0.261458, 0.051763, -0.001149, -0.039066, 0.183952, 0.330423, 0.081423, 0.315368, -0.292945, 0.050151, 0.167455 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1814) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1814) imag"); }; }; *************** *** 3778,3793 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.827, -0.754, 0.719, 0.88, -0.942, -0.152, 0.051, 0.033, -0.603, -0.557, 0.668, 0.024, 0.082, 0.458, 0.733, 0.669, 0.722, -0.661 }; int lda = 3; ! double B[] = { -0.523, 0.365, -0.811, -0.632, -0.06, 0.151, -0.962, -0.71, -0.543, 0.8, -0.264, 0.994 }; int ldb = 3; ! double B_expected[] = { 0.4413193, -0.3047431, 0.307206, 0.074162, 0.0029, -0.0513, 0.2285887, 0.1349491, 0.061616, -0.510648, -0.0202, -0.3246 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1823) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1823) imag"); }; }; --- 3778,3793 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.257, -0.565, -0.123, 0.129, 0.817, -0.516, -0.613, -0.42, -0.494, 0.122, -0.593, -0.972, -0.695, -0.968, 0.848, -0.2, -0.17, 0.436 }; int lda = 3; ! double B[] = { -0.274, 0.105, -0.899, -0.33, -0.318, -0.096, -0.237, 0.327, 0.046, 0.584, -0.459, -0.182 }; int ldb = 3; ! double B_expected[] = { -0.019041, -0.416263, 0.582168, -0.617114, 0.096, -0.318, 0.136304, -0.448413, -0.245778, 0.495091, 0.182, -0.459 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1815) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1815) imag"); }; }; *************** *** 3803,3818 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.958, 0.948, -0.161, -0.34, -0.184, 0.43, -0.045, -0.465, -0.278, 0.461, 0.584, 0.003, -0.794, -0.778, -0.65, -0.91, 0.24, -0.944 }; int lda = 3; ! double B[] = { 0.279, 0.041, -0.033, 0.332, 0.788, 0.611, -0.644, -0.133, 0.247, 0.06, 0.125, -0.407 }; int ldb = 3; ! double B_expected[] = { -0.0693236, 0.0981792, -0.0442625, -0.0021815, 0.1936084, -0.3409328, 0.174601, -0.219233, 0.0274565, 0.1321885, -0.2252264, 0.1381888 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1824) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1824) imag"); }; }; --- 3803,3818 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.127, 0.025, 0.036, 0.612, 0.773, 0.953, 0.074, -0.006, 0.373, 0.292, -0.052, -0.319, -0.878, -0.401, 0.486, -0.493, -0.316, 0.003 }; int lda = 3; ! double B[] = { 0.794, -0.666, -0.406, 0.622, -0.512, -0.761, 0.161, -0.137, -0.626, 0.408, 0.536, 0.66 }; int ldb = 3; ! double B_expected[] = { -0.064732, -0.117488, -0.306038, 0.092938, -1.247288, -0.774519, -0.013374, -0.023872, -0.325804, -0.101626, 0.135651, -0.759197 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1816) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1816) imag"); }; }; *************** *** 3828,3843 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.983, -0.795, -0.115, -0.542, 0.837, 0.518, -0.164, 0.776, -0.453, -0.28, 0.135, -0.377, -0.199, -0.965, 0.784, -0.39, -0.499, 0.257 }; int lda = 3; ! double B[] = { -0.712, 0.364, -0.28, 0.05, 0.314, 0.748, -0.719, 0.619, 0.474, -0.906, -0.859, 0.943 }; int ldb = 3; ! double B_expected[] = { 0.1772, -0.1804, -0.0900512, -0.1509216, 0.0485292, 0.0109956, 0.1538, -0.2576, -0.2767208, 0.2420976, 0.2164354, 0.0610082 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1825) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1825) imag"); }; }; --- 3828,3843 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.724, -0.423, 0.028, 0.043, 0.812, -0.568, 0.294, -0.375, -0.85, -0.119, -0.338, -0.415, 0.976, 0.507, 0.913, 0.697, 0.323, 0.206 }; int lda = 3; ! double B[] = { 0.427, 0.621, -0.212, -0.942, -0.08, 0.416, 0.465, -0.972, -0.529, -0.252, -0.19, 0.073 }; int ldb = 3; ! double B_expected[] = { -0.621, 0.427, 0.599301, -0.319337, -0.093325, -0.198531, 0.972, 0.465, 0.363393, -0.02779, 0.97279, -0.887585 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1817) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1817) imag"); }; }; *************** *** 3853,3868 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.105, 0.503, -0.17, 0.2, -0.861, -0.279, -0.231, 0.058, 0.699, 0.437, 0.578, 0.462, 0.473, -0.793, -0.34, -0.162, -0.128, -0.844 }; int lda = 3; ! double B[] = { -0.802, 0.292, -0.155, -0.916, -0.099, -0.082, 0.057, 0.215, 0.94, 0.911, -0.714, 0.41 }; int ldb = 2; ! double B_expected[] = { -0.1044001, -0.5102243, 0.3865174, 0.0189802, 0.1888166, -0.0057672, -0.0800722, 0.0699214, 0.199086, -0.291946, 0.141904, 0.171064 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1826) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1826) imag"); }; }; --- 3853,3868 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.501, -0.632, 0.663, 0.151, -0.523, -0.71, -0.811, 0.8, -0.06, 0.994, -0.962, 0.827, -0.543, 0.719, -0.264, -0.942, 0.365, 0.051 }; int lda = 3; ! double B[] = { -0.974, 0.094, -0.533, 0.633, -0.982, -0.383, -0.297, 0.734, -0.092, -0.15, 0.215, -0.232 }; int ldb = 2; ! double B_expected[] = { -0.675337, -0.115274, 0.406006, -0.122575, -0.952024, -0.156194, -0.514956, 0.9092, 0.050058, -0.04123, 0.095645, 0.066643 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1818) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1818) imag"); }; }; *************** *** 3878,3893 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.468, 0.378, -0.498, 0.251, 0.777, -0.543, -0.913, 0.095, 0.779, -0.933, 0.068, -0.669, 0.715, 0.03, 0.012, 0.392, -0.785, -0.056 }; int lda = 3; ! double B[] = { 0.143, -0.242, -0.379, -0.831, -0.46, -0.663, -0.735, -0.098, -0.861, -0.894, 0.772, -0.059 }; int ldb = 2; ! double B_expected[] = { 0.0633681, 0.0476643, -0.1761819, 0.3044093, 0.2798556, 0.0187868, 0.2647924, 0.0455132, 0.3477, 0.1821, -0.2257, 0.0949 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1827) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1827) imag"); }; }; --- 3878,3893 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { 0.669, 0.332, -0.661, 0.611, 0.279, -0.133, -0.033, 0.06, 0.788, -0.407, -0.644, 0.958, 0.247, -0.161, 0.125, -0.184, 0.041, -0.045 }; int lda = 3; ! double B[] = { -0.603, 0.88, 0.668, -0.152, 0.082, 0.033, 0.733, -0.557, 0.722, 0.024, -0.754, 0.458 }; int ldb = 2; ! double B_expected[] = { -0.996161, -0.429256, 0.185867, 0.350415, -0.168848, 0.167834, 0.638486, 0.554478, -0.024, 0.722, -0.458, -0.754 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1819) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1819) imag"); }; }; *************** *** 3903,3918 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { -0.764, 0.908, 0.899, 0.119, -0.447, 0.279, 0.338, 0.73, -0.74, -0.366, -0.572, 0.583, 0.75, 0.519, 0.603, 0.831, 0.697, 0.822 }; int lda = 3; ! double B[] = { 0.399, 0.572, -0.489, 0.964, -0.167, -0.104, 0.75, -0.199, 0.777, 0.503, -0.025, -0.386 }; int ldb = 2; ! double B_expected[] = { 0.015568, 0.261244, -0.345424, 0.212636, -0.2247824, -0.0859342, 0.1074596, -0.4846822, -0.2415227, 0.2465939, 0.2042976, 0.2206978 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1828) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1828) imag"); }; }; --- 3903,3918 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.91, 0.05, -0.944, 0.748, -0.712, 0.619, -0.28, -0.906, 0.314, 0.943, -0.719, -0.983, 0.474, -0.115, -0.859, 0.837, 0.364, -0.164 }; int lda = 3; ! double B[] = { -0.278, -0.34, 0.584, 0.43, -0.794, -0.465, -0.65, 0.461, 0.24, 0.003, 0.948, -0.778 }; int ldb = 2; ! double B_expected[] = { -0.3233, 0.23598, 0.4205, -0.50994, -1.131636, -0.679699, 0.085048, 0.000967, -0.008447, 1.102325, 1.765785, 0.337213 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1820) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1820) imag"); }; }; *************** *** 3928,3943 **** int M = 2; int N = 3; ! double alpha[2] = {-0.3, 0.1}; ! double A[] = { 0.432, 0.063, 0.065, -0.546, 0.099, 0.892, 0.48, -0.085, 0.746, -0.541, -0.739, -0.207, 0.695, 0.765, 0.197, -0.86, 0.621, -0.653 }; int lda = 3; ! double B[] = { 0.182, 0.731, 0.571, 0.01, -0.357, -0.612, 0.581, 0.756, -0.911, -0.225, 0.438, 0.546 }; int ldb = 2; ! double B_expected[] = { -0.1277, -0.2011, -0.1723, 0.0541, 0.2698001, 0.0651043, -0.2906381, -0.2592593, -0.0512125, -0.0040605, 0.0647965, 0.1119875 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1829) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1829) imag"); }; }; --- 3928,3943 ---- int M = 2; int N = 3; ! double alpha[2] = {0, 1}; ! double A[] = { -0.39, -0.916, 0.257, -0.082, -0.802, 0.215, -0.155, 0.911, -0.099, 0.41, 0.057, 0.105, 0.94, -0.17, -0.714, -0.861, 0.292, -0.231 }; int lda = 3; ! double B[] = { -0.453, -0.542, 0.135, 0.518, -0.199, 0.776, 0.784, -0.28, -0.499, -0.377, -0.795, -0.965 }; int ldb = 2; ! double B_expected[] = { 0.542, -0.453, -0.518, 0.135, -0.59956, -0.270977, 0.135804, 0.776219, -0.220206, -0.182087, 1.507741, -0.776612 }; cblas_ztrmm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[2*i], B_expected[2*i], dbleps, "ztrmm(case 1821) real"); ! gsl_test_rel(B[2*i+1], B_expected[2*i+1], dbleps, "ztrmm(case 1821) imag"); }; }; diff -x.info* -rc2P gsl-1.3/cblas/test_trsm.c gsl-1.4/cblas/test_trsm.c *** gsl-1.3/cblas/test_trsm.c Mon Nov 19 21:35:15 2001 --- gsl-1.4/cblas/test_trsm.c Fri Jul 25 15:18:09 2003 *************** *** 18,31 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.773f, 0.069f, 0.45f, 0.189f }; int lda = 2; ! float B[] = { -0.037f, 0.788f, 0.015f, 0.028f, -0.804f, -0.357f }; int ldb = 3; ! float B_expected[] = { 0.0183269f, -0.419738f, -0.0564036f, -0.0444444f, 1.27619f, 0.566667f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1830)"); } }; --- 18,31 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.279f, 0.058f, 0.437f, 0.462f }; int lda = 2; ! float B[] = { 0.578f, 0.473f, -0.34f, -0.128f, 0.503f, 0.2f }; int ldb = 3; ! float B_expected[] = { 0.638784f, 0.440702f, -0.392589f, 0.0831169f, -0.326623f, -0.12987f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1822)"); } }; *************** *** 42,55 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.13f, -0.832f, 0.426f, 0.195f }; int lda = 2; ! float B[] = { 0.504f, 0.996f, 0.872f, -0.35f, 0.518f, -0.8f }; int ldb = 3; ! float B_expected[] = { -0.06384f, -0.428093f, -0.06192f, 0.105f, -0.1554f, 0.24f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1831)"); } }; --- 42,55 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.735f, -0.861f, 0.772f, -0.242f }; int lda = 2; ! float B[] = { -0.793f, -0.162f, -0.844f, 0.143f, -0.379f, -0.46f }; int ldb = 3; ! float B_expected[] = { 0.200963f, 0.146496f, 0.372018f, -0.0429f, 0.1137f, 0.138f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1823)"); } }; *************** *** 66,79 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.755f, -0.053f, -0.132f, -0.515f }; int lda = 2; ! float B[] = { -0.735f, 0.494f, 0.072f, -0.882f, -0.112f, 0.904f }; int ldb = 3; ! float B_expected[] = { 0.292053f, -0.196291f, -0.0286093f, -0.588643f, -0.0149311f, 0.533935f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1832)"); } }; --- 66,79 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.498f, 0.777f, -0.913f, 0.779f }; int lda = 2; ! float B[] = { -0.831f, -0.663f, -0.098f, -0.894f, -0.059f, 0.468f }; int ldb = 3; ! float B_expected[] = { -0.500602f, -0.399398f, -0.0590361f, -0.242426f, -0.445379f, -0.249422f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1824)"); } }; *************** *** 90,103 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.88f, -0.555f, 0.642f, 0.751f }; int lda = 2; ! float B[] = { -0.411f, 0.134f, 0.657f, 0.072f, -0.007f, -0.34f }; int ldb = 3; ! float B_expected[] = { 0.1233f, -0.0402f, -0.1971f, -0.100759f, 0.0279084f, 0.228538f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1833)"); } }; --- 90,103 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.543f, 0.095f, -0.933f, -0.669f }; int lda = 2; ! float B[] = { 0.068f, 0.715f, 0.012f, -0.785f, 0.378f, 0.251f }; int ldb = 3; ! float B_expected[] = { -0.0204f, -0.2145f, -0.0036f, 0.216467f, -0.313528f, -0.0786588f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1825)"); } }; *************** *** 114,127 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.478f, 0.938f, -0.731f, 0.25f }; int lda = 2; ! float B[] = { -0.859f, -0.409f, -0.154f, -0.54f, 0.146f, -0.106f }; int ldb = 2; ! float B_expected[] = { -1.2897f, 0.4908f, -1.08763f, 0.648f, -0.102894f, 0.1272f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1834)"); } }; --- 114,127 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.75f, 0.777f, -0.025f, 0.572f }; int lda = 2; ! float B[] = { 0.03f, 0.392f, -0.056f, 0.399f, -0.489f, -0.167f }; int ldb = 2; ! float B_expected[] = { -0.0188531f, -0.205594f, 0.0154245f, -0.209266f, 0.19852f, 0.0875874f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1826)"); } }; *************** *** 138,151 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.953f, 0.249f, -0.451f, -0.781f }; int lda = 2; ! float B[] = { -0.4f, -0.546f, 0.839f, 0.392f, -0.445f, -0.818f }; int ldb = 2; ! float B_expected[] = { 0.193874f, 0.1638f, -0.304738f, -0.1176f, 0.244175f, 0.2454f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1835)"); } }; --- 138,151 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.899f, -0.447f, 0.338f, -0.74f }; int lda = 2; ! float B[] = { 0.964f, -0.104f, -0.199f, 0.503f, -0.386f, -0.764f }; int ldb = 2; ! float B_expected[] = { -0.299746f, 0.0312f, 0.110704f, -0.1509f, 0.0383304f, 0.2292f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1827)"); } }; *************** *** 162,175 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.831f, -0.997f, -0.366f, 0.307f }; int lda = 2; ! float B[] = { 0.157f, -0.02f, 0.57f, 0.309f, -0.159f, 0.266f }; int ldb = 2; ! float B_expected[] = { -0.0566787f, -0.164523f, -0.205776f, -0.970224f, 0.0574007f, -0.0735227f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1836)"); } }; --- 162,175 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.279f, 0.73f, -0.366f, 0.583f }; int lda = 2; ! float B[] = { -0.572f, 0.75f, 0.603f, 0.697f, 0.908f, 0.119f }; int ldb = 2; ! float B_expected[] = { 0.615054f, -1.15607f, -0.648387f, 0.453212f, -0.976344f, 1.16129f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1828)"); } }; *************** *** 186,199 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.842f, 0.674f, 0.03f, 0.628f }; int lda = 2; ! float B[] = { -0.426f, 0.806f, 0.299f, 0.626f, -0.471f, 0.208f }; int ldb = 2; ! float B_expected[] = { 0.1278f, -0.327937f, -0.0897f, -0.127342f, 0.1413f, -0.157636f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1837)"); } }; --- 186,199 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.581f, -0.911f, 0.438f, 0.731f }; int lda = 2; ! float B[] = { 0.519f, 0.831f, 0.822f, 0.182f, 0.571f, -0.357f }; int ldb = 2; ! float B_expected[] = { -0.1557f, -0.391143f, -0.2466f, -0.279253f, -0.1713f, -0.0489543f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1829)"); } }; *************** *** 210,223 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.095f, 0.301f, 0.168f, 0.934f, 0.107f, 0.068f, 0.384f, -0.201f, 0.116f }; int lda = 3; ! float B[] = { 0.534f, 0.773f, -0.304f, -0.402f, 0.642f, -0.102f }; int ldb = 3; ! float B_expected[] = { 1.68632f, -6.91104f, 2.39525f, -1.26947f, 1.77114f, 1.06409f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1838)"); } }; --- 210,223 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.065f, 0.099f, 0.48f, 0.746f, -0.739f, 0.695f, 0.197f, 0.621f, 0.063f }; int lda = 3; ! float B[] = { 0.01f, -0.612f, 0.756f, -0.225f, 0.546f, 0.432f }; int ldb = 3; ! float B_expected[] = { -0.0461538f, -0.254627f, -0.439373f, 1.03846f, 0.360768f, -13.9491f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1830)"); } }; *************** *** 234,247 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.738f, -0.353f, -0.616f, 0.304f, 0.403f, 0.739f, 0.996f, 0.329f, 0.273f }; int lda = 3; ! float B[] = { -0.436f, 0.074f, 0.273f, -0.609f, 0.858f, 0.993f }; int ldb = 3; ! float B_expected[] = { 0.1308f, 0.0239724f, -0.0190428f, 0.1827f, -0.192907f, -0.0427986f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1839)"); } }; --- 234,247 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.86f, -0.653f, 0.87f, -0.037f, 0.788f, 0.015f, 0.028f, -0.804f, -0.357f }; int lda = 3; ! float B[] = { -0.546f, 0.892f, -0.085f, -0.541f, -0.207f, 0.765f }; int ldb = 3; ! float B_expected[] = { 0.1638f, -0.160639f, -0.114596f, 0.1623f, 0.168082f, -0.373222f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1831)"); } }; *************** *** 258,271 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.956f, 0.878f, 0.156f, 0.217f, 0.082f, -0.869f, 0.595f, 0.845f, 0.064f }; int lda = 3; ! float B[] = { -0.744f, 0.662f, -0.31f, 0.811f, 0.257f, 0.98f }; int ldb = 3; ! float B_expected[] = { -3.27779f, -17.3962f, 1.45312f, 7.92713f, 46.3978f, -4.59375f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1840)"); } }; --- 258,271 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.872f, -0.35f, 0.518f, -0.8f, -0.13f, -0.832f, 0.426f, 0.195f, -0.735f }; int lda = 3; ! float B[] = { 0.773f, 0.069f, 0.45f, 0.189f, 0.504f, 0.996f }; int ldb = 3; ! float B_expected[] = { 0.0431742f, 0.434741f, 0.183673f, 1.36286f, 1.77287f, 0.406531f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1832)"); } }; *************** *** 282,295 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.313f, -0.316f, 0.836f, 0.359f, -0.415f, 0.154f, -0.948f, -0.596f, -0.799f }; int lda = 3; ! float B[] = { 0.29f, -0.291f, 0.652f, 0.614f, 0.922f, -0.063f }; int ldb = 3; ! float B_expected[] = { -0.261918f, -0.0292776f, -0.1956f, -0.0710273f, -0.265336f, 0.0189f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1841)"); } }; --- 282,295 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.053f, -0.132f, -0.515f, -0.411f, 0.134f, 0.657f, 0.072f, -0.007f, -0.34f }; int lda = 3; ! float B[] = { 0.494f, 0.072f, -0.882f, -0.112f, 0.904f, 0.755f }; int ldb = 3; ! float B_expected[] = { -0.175368f, -0.0197478f, 0.2646f, -0.0622068f, -0.272786f, -0.2265f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1833)"); } }; *************** *** 306,319 **** int N = 3; float alpha = -0.3f; ! float A[] = { -0.634f, 0.561f, 0.883f, -0.136f, 0.203f, -0.531f, 0.733f, -0.332f, 0.705f }; int lda = 3; ! float B[] = { 0.133f, -0.843f, -0.179f, 0.94f, -0.656f, 0.645f }; int ldb = 2; ! float B_expected[] = { 0.0629338f, -0.398896f, 0.306695f, -1.6564f, 0.358145f, -0.639766f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1842)"); } }; --- 306,319 ---- int N = 3; float alpha = -0.3f; ! float A[] = { -0.154f, -0.54f, 0.146f, -0.106f, -0.478f, 0.938f, -0.731f, 0.25f, -0.4f }; int lda = 3; ! float B[] = { -0.88f, -0.555f, 0.642f, 0.751f, -0.859f, -0.409f }; int ldb = 2; ! float B_expected[] = { -1.71429f, -1.08117f, 0.783084f, 0.711096f, 2.97803f, 2.11352f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1834)"); } }; *************** *** 330,343 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.742f, -0.438f, 0.991f, 0.614f, 0.108f, -0.125f, 0.736f, -0.383f, 0.0f }; int lda = 3; ! float B[] = { -0.792f, -0.033f, -0.723f, 0.885f, 0.336f, 0.584f }; int ldb = 2; ! float B_expected[] = { 0.2376f, 0.0099f, 0.0710136f, -0.271579f, -0.248475f, -0.286501f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1843)"); } }; --- 330,343 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.249f, -0.451f, -0.781f, 0.157f, -0.02f, 0.57f, 0.309f, -0.159f, 0.266f }; int lda = 3; ! float B[] = { -0.546f, 0.839f, 0.392f, -0.445f, -0.818f, 0.953f }; int ldb = 2; ! float B_expected[] = { 0.1638f, -0.2517f, -0.143317f, 0.173017f, 0.171998f, -0.180615f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1835)"); } }; *************** *** 354,367 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.761f, 0.466f, 0.907f, -0.85f, -0.342f, -0.058f, -0.379f, -0.416f, 0.599f }; int lda = 3; ! float B[] = { -0.238f, 0.013f, 0.473f, -0.626f, 0.912f, -0.003f }; int ldb = 2; ! float B_expected[] = { 0.336709f, 0.329497f, 0.492375f, -0.549378f, -0.456761f, 0.0015025f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1844)"); } }; --- 354,367 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.299f, 0.626f, -0.471f, 0.208f, -0.842f, 0.674f, 0.03f, 0.628f, 0.534f }; int lda = 3; ! float B[] = { 0.831f, -0.997f, -0.366f, 0.307f, -0.426f, 0.806f }; int ldb = 2; ! float B_expected[] = { -0.584851f, 0.816906f, 0.0611706f, -0.25308f, 0.239326f, -0.452809f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1836)"); } }; *************** *** 378,391 **** int N = 3; float alpha = -0.3f; ! float A[] = { 0.567f, -0.532f, -0.817f, 0.85f, -0.135f, 0.797f, 0.981f, -0.75f, 0.856f }; int lda = 3; ! float B[] = { -0.705f, 0.326f, 0.184f, 0.079f, -0.173f, 0.125f }; int ldb = 2; ! float B_expected[] = { 0.20253f, -0.125146f, -0.0965643f, 0.0061875f, 0.0519f, -0.0375f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1845)"); } }; --- 378,391 ---- int N = 3; float alpha = -0.3f; ! float A[] = { 0.301f, 0.168f, 0.934f, 0.107f, 0.068f, 0.384f, -0.201f, 0.116f, -0.436f }; int lda = 3; ! float B[] = { 0.773f, -0.304f, -0.402f, 0.642f, -0.102f, -0.095f }; int ldb = 2; ! float B_expected[] = { -0.278767f, 0.0987764f, 0.10885f, -0.203544f, 0.0306f, 0.0285f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1837)"); } }; *************** *** 401,415 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.859f, 0.563f, -0.61f, 0.2f }; int lda = 2; ! float B[] = { -0.241f, -0.357f, -0.683f, -0.718f, 0.69f, -0.486f }; int ldb = 3; ! float B_expected[] = { -0.0841676f, -0.12468f, -0.238533f, 1.31393f, -0.684026f, 1.40047f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1846)"); } }; --- 401,415 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.616f, 0.304f, 0.403f, 0.739f }; int lda = 2; ! float B[] = { 0.273f, -0.609f, 0.858f, 0.993f, -0.738f, -0.353f }; int ldb = 3; ! float B_expected[] = { -0.443182f, 0.988636f, -1.39286f, 1.52602f, -1.40534f, 0.0953025f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1838)"); } }; *************** *** 425,439 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.157f, -0.741f, 0.844f, 0.206f }; int lda = 2; ! float B[] = { 0.816f, -0.692f, 0.765f, -0.408f, 0.404f, 0.764f }; int ldb = 3; ! float B_expected[] = { -0.2448f, 0.2076f, -0.2295f, -0.0589968f, 0.0326316f, -0.399259f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1847)"); } }; --- 425,439 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.811f, 0.257f, 0.98f, -0.956f }; int lda = 2; ! float B[] = { 0.996f, 0.329f, 0.273f, -0.744f, 0.662f, -0.31f }; int ldb = 3; ! float B_expected[] = { 0.996f, 0.329f, 0.273f, -0.999972f, 0.577447f, -0.380161f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1839)"); } }; *************** *** 449,463 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.187f, 0.354f, -0.931f, 0.18f }; int lda = 2; ! float B[] = { -0.215f, -0.645f, 0.847f, 0.014f, 0.83f, 0.761f }; int ldb = 3; ! float B_expected[] = { 0.228752f, -5.85232f, -7.67336f, -0.0233333f, -1.38333f, -1.26833f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1848)"); } }; --- 449,463 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.845f, 0.064f, 0.29f, -0.291f }; int lda = 2; ! float B[] = { 0.878f, 0.156f, 0.217f, 0.082f, -0.869f, 0.595f }; int ldb = 3; ! float B_expected[] = { 1.13576f, -0.840253f, 0.958527f, -0.281787f, 2.98625f, -2.04467f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1840)"); } }; *************** *** 473,487 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.923f, 0.27f, -0.319f, -0.856f }; int lda = 2; ! float B[] = { 0.391f, 0.01f, 0.429f, 0.685f, 0.332f, -0.643f }; int ldb = 3; ! float B_expected[] = { -0.182855f, -0.0347724f, -0.0671649f, -0.2055f, -0.0996f, 0.1929f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1849)"); } }; --- 473,487 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.836f, 0.359f, -0.415f, 0.154f }; int lda = 2; ! float B[] = { 0.652f, 0.614f, 0.922f, -0.063f, 0.313f, -0.316f }; int ldb = 3; ! float B_expected[] = { 0.625855f, 0.743895f, 0.79086f, -0.063f, 0.313f, -0.316f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1841)"); } }; *************** *** 497,511 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.724f, 0.201f, 0.87f, -0.638f }; int lda = 2; ! float B[] = { -0.533f, 0.183f, 0.569f, 0.85f, 0.642f, -0.051f }; int ldb = 2; ! float B_expected[] = { 0.220856f, 0.387218f, -0.235773f, 0.0781772f, -0.266022f, -0.386739f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1850)"); } }; --- 497,511 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.94f, -0.656f, 0.645f, -0.634f }; int lda = 2; ! float B[] = { -0.948f, -0.596f, -0.799f, 0.133f, -0.843f, -0.179f }; int ldb = 2; ! float B_expected[] = { -1.00851f, -0.0859454f, -0.85f, -1.07453f, -0.896809f, -0.630034f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1842)"); } }; *************** *** 521,535 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.291f, 0.244f, 0.931f, 0.857f }; int lda = 2; ! float B[] = { 0.008f, -0.478f, -0.252f, -0.155f, 0.419f, -0.192f }; int ldb = 2; ! float B_expected[] = { -0.0024f, 0.145634f, 0.0756f, -0.0238836f, -0.1257f, 0.174627f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1851)"); } }; --- 521,535 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.332f, 0.705f, -0.792f, -0.033f }; int lda = 2; ! float B[] = { 0.561f, 0.883f, -0.136f, 0.203f, -0.531f, 0.733f }; int ldb = 2; ! float B_expected[] = { 0.561f, 1.32731f, -0.136f, 0.095288f, -0.531f, 0.312448f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1843)"); } }; *************** *** 545,559 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.634f, -0.529f, -0.344f, 0.375f }; int lda = 2; ! float B[] = { -0.295f, 0.551f, 0.832f, 0.744f, -0.326f, 0.111f }; int ldb = 2; ! float B_expected[] = { 0.228207f, -0.4408f, 0.890317f, -0.5952f, -0.0801653f, -0.0888f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1852)"); } }; --- 545,559 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.991f, 0.614f, 0.108f, -0.125f }; int lda = 2; ! float B[] = { -0.723f, 0.885f, 0.336f, 0.584f, 0.742f, -0.438f }; int ldb = 2; ! float B_expected[] = { 3.65703f, -7.08f, 3.23371f, -4.672f, -1.42226f, 3.504f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1844)"); } }; *************** *** 569,583 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.641f, 0.989f, 0.998f, -0.005f }; int lda = 2; ! float B[] = { -0.168f, 0.465f, 0.36f, 0.356f, -0.858f, 0.879f }; int ldb = 2; ! float B_expected[] = { 0.188365f, -0.1395f, -0.0023748f, -0.1068f, 0.518199f, -0.2637f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1853)"); } }; --- 569,583 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.626f, 0.912f, -0.003f, 0.761f }; int lda = 2; ! float B[] = { 0.736f, -0.383f, 0.0f, -0.238f, 0.013f, 0.473f }; int ldb = 2; ! float B_expected[] = { 1.0853f, -0.383f, 0.217056f, -0.238f, -0.418376f, 0.473f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1845)"); } }; *************** *** 593,607 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.638f, 0.389f, 0.997f, 0.909f, -0.598f, -0.43f, -0.345f, -0.897f, 0.119f }; int lda = 3; ! float B[] = { 0.64f, 0.779f, -0.129f, 0.016f, 0.599f, -0.668f }; int ldb = 3; ! float B_expected[] = { 0.904844f, 0.156956f, 0.32521f, 2.08405f, -0.910426f, 1.68403f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1854)"); } }; --- 593,607 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.416f, 0.599f, -0.705f, 0.326f, 0.184f, 0.079f, -0.173f, 0.125f, 0.567f }; int lda = 3; ! float B[] = { 0.466f, 0.907f, -0.85f, -0.342f, -0.058f, -0.379f }; int ldb = 3; ! float B_expected[] = { 9.44495f, 5.57299f, -1.49912f, 1.91427f, -0.0282283f, -0.66843f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1846)"); } }; *************** *** 617,631 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.289f, 0.641f, -0.876f, -0.503f, -0.062f, -0.987f, 0.1f, -0.105f, 0.757f }; int lda = 3; ! float B[] = { -0.285f, 0.285f, 0.219f, -0.986f, -0.0f, -0.605f }; int ldb = 3; ! float B_expected[] = { 0.124319f, -0.150346f, -0.0657f, 0.339965f, 0.17914f, 0.1815f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1855)"); } }; --- 617,631 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { -0.75f, 0.856f, 0.773f, -0.241f, -0.357f, -0.683f, -0.718f, 0.69f, -0.486f }; int lda = 3; ! float B[] = { -0.532f, -0.817f, 0.85f, -0.135f, 0.797f, 0.981f }; int ldb = 3; ! float B_expected[] = { -0.986649f, -0.23645f, 0.85f, -2.14908f, 1.46702f, 0.981f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1847)"); } }; *************** *** 641,655 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.524f, 0.018f, 0.292f, -0.573f, 0.866f, 0.749f, 0.99f, 0.101f, 0.871f }; int lda = 3; ! float B[] = { 0.522f, -0.269f, -0.142f, -0.266f, -0.505f, -0.55f }; int ldb = 3; ! float B_expected[] = { -0.298855f, -0.104554f, 0.400719f, 0.15229f, 0.275707f, -0.0156298f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1856)"); } }; --- 641,655 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.765f, -0.408f, 0.404f, 0.764f, 0.157f, -0.741f, 0.844f, 0.206f, -0.215f }; int lda = 3; ! float B[] = { -0.859f, 0.563f, -0.61f, 0.2f, 0.816f, -0.692f }; int ldb = 3; ! float B_expected[] = { -1.12288f, 9.05017f, 7.1006f, 0.261438f, 3.92523f, 8.00582f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1848)"); } }; *************** *** 665,679 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.283f, 0.62f, -0.387f, -0.739f, -0.599f, 0.114f, 0.552f, 0.083f, -0.976f }; int lda = 3; ! float B[] = { 0.202f, 0.169f, 0.7f, 0.473f, 0.86f, -0.557f }; int ldb = 3; ! float B_expected[] = { -0.0606f, -0.0954834f, -0.168624f, -0.1419f, -0.362864f, 0.275547f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1857)"); } }; --- 665,679 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.354f, -0.931f, 0.18f, 0.391f, 0.01f, 0.429f, 0.685f, 0.332f, -0.643f }; int lda = 3; ! float B[] = { -0.645f, 0.847f, 0.014f, 0.83f, 0.761f, 0.187f }; int ldb = 3; ! float B_expected[] = { -0.645f, 1.09919f, 0.0908923f, 0.83f, 0.43647f, -0.526458f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1849)"); } }; *************** *** 689,703 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.185f, 0.178f, -0.22f, -0.645f, -0.585f, -0.342f, -0.594f, -0.141f, 0.944f }; int lda = 3; ! float B[] = { 0.22f, -0.895f, -0.301f, -0.683f, -0.009f, -0.451f }; int ldb = 2; ! float B_expected[] = { 0.888147f, -0.569939f, -0.155048f, -0.384802f, 0.00286017f, 0.143326f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1858)"); } }; --- 689,703 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.569f, 0.85f, 0.642f, -0.051f, 0.724f, 0.201f, 0.87f, -0.638f, 0.008f }; int lda = 3; ! float B[] = { -0.923f, 0.27f, -0.319f, -0.856f, -0.533f, 0.183f }; int ldb = 2; ! float B_expected[] = { 94.9456f, -32.8005f, -59.1516f, 18.9755f, -66.625f, 22.875f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1850)"); } }; *************** *** 713,727 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.145f, 0.746f, 0.541f, 0.584f, -0.394f, 0.371f, -0.172f, -0.601f, 0.542f }; int lda = 3; ! float B[] = { 0.529f, 0.636f, 0.668f, 0.848f, -0.816f, -0.925f }; int ldb = 2; ! float B_expected[] = { -0.0854817f, -0.0918985f, -0.0532752f, -0.0876225f, 0.2448f, 0.2775f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1859)"); } }; --- 713,727 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.244f, 0.931f, 0.857f, -0.295f, 0.551f, 0.832f, 0.744f, -0.326f, 0.111f }; int lda = 3; ! float B[] = { -0.478f, -0.252f, -0.155f, 0.419f, -0.192f, 0.291f }; int ldb = 2; ! float B_expected[] = { -0.399342f, -0.316914f, -0.217592f, 0.513866f, -0.192f, 0.291f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1851)"); } }; *************** *** 737,751 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { 0.416f, -0.526f, -0.486f, -0.716f, 0.361f, 0.365f, -0.492f, 0.544f, 0.721f }; int lda = 3; ! float B[] = { 0.25f, 0.746f, 0.55f, 0.836f, -0.024f, 0.226f }; int ldb = 2; ! float B_expected[] = { -0.180288f, -0.537981f, -0.719755f, -1.47861f, 0.25283f, 0.291864f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1860)"); } }; --- 737,751 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.36f, 0.356f, -0.858f, 0.879f, 0.641f, 0.989f, 0.998f, -0.005f, 0.64f }; int lda = 3; ! float B[] = { -0.634f, -0.529f, -0.344f, 0.375f, -0.168f, 0.465f }; int ldb = 2; ! float B_expected[] = { -1.76111f, -1.46944f, 0.441428f, 1.40113f, -3.30563f, -3.40859f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1852)"); } }; *************** *** 761,775 **** int M = 2; int N = 3; ! float alpha = -0.3f; ! float A[] = { -0.735f, -0.606f, -0.124f, 0.641f, -0.074f, -0.053f, -0.734f, 0.907f, 0.558f }; int lda = 3; ! float B[] = { 0.623f, 0.392f, -0.808f, -0.022f, -0.665f, -0.616f }; int ldb = 2; ! float B_expected[] = { -0.1869f, -0.1176f, 0.129139f, -0.0646656f, 0.183169f, 0.16679f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1861)"); } }; --- 761,775 ---- int M = 2; int N = 3; ! float alpha = 1.0f; ! float A[] = { 0.389f, 0.997f, 0.909f, -0.598f, -0.43f, -0.345f, -0.897f, 0.119f, -0.285f }; int lda = 3; ! float B[] = { 0.779f, -0.129f, 0.016f, 0.599f, -0.668f, -0.638f }; int ldb = 2; ! float B_expected[] = { 0.779f, -0.129f, -0.760663f, 0.727613f, -1.63854f, -0.269713f }; cblas_strsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], flteps, "strsm(case 1853)"); } }; *************** *** 785,799 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.584, -0.058, -0.964, -0.214 }; int lda = 2; ! double B[] = { 0.073, -0.734, -0.058, -0.115, 0.513, 0.503 }; int ldb = 3; ! double B_expected[] = { -0.0178370247087, 0.149492702599, 0.0332751888363, 0.053738317757, -0.239719626168, -0.235046728972 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1862)"); } }; --- 785,799 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.876, -0.503, -0.062, -0.987 }; int lda = 2; ! double B[] = { 0.219, -0.986, -0.0, -0.605, 0.289, 0.641 }; int ldb = 3; ! double B_expected[] = { 0.601967125138, -1.29370052694, -0.372910623494, -0.612968591692, 0.292806484296, 0.649442755826 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1854)"); } }; *************** *** 809,823 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.251, -0.8, 0.365, 0.809 }; int lda = 2; ! double B[] = { -0.632, -0.611, 0.9, 0.063, -0.652, -0.841 }; int ldb = 3; ! double B_expected[] = { -0.05816, -0.11326, 0.02272, 0.0063, -0.0652, -0.0841 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1863)"); } }; --- 809,823 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.266, -0.505, -0.55, 0.524 }; int lda = 2; ! double B[] = { 0.1, -0.105, 0.757, 0.522, -0.269, -0.142 }; int ldb = 3; ! double B_expected[] = { -0.36361, 0.240845, -0.68529, -0.522, 0.269, 0.142 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1855)"); } }; *************** *** 833,847 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.833, 0.934, -0.608, 0.49 }; int lda = 2; ! double B[] = { 0.336, -0.541, -0.729, -0.382, 0.741, 0.546 }; int ldb = 3; ! double B_expected[] = { -0.0403361344538, 0.0649459783914, 0.0875150060024, -0.128008917853, 0.231810520126, 0.220018619693 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1864)"); } }; --- 833,847 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.101, 0.871, 0.202, 0.169 }; int lda = 2; ! double B[] = { 0.018, 0.292, -0.573, 0.866, 0.749, 0.99 }; int ldb = 3; ! double B_expected[] = { -0.178217821782, -2.89108910891, 5.67326732673, -4.91124260355, -0.976331360947, -12.6390532544 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1856)"); } }; *************** *** 857,871 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.824, 0.907, 0.632, -0.348 }; int lda = 2; ! double B[] = { 0.351, -0.301, 0.602, 0.873, 0.031, -0.2 }; int ldb = 3; ! double B_expected[] = { 0.0351, -0.0301, 0.0602, 0.0651168, 0.0221232, -0.0580464 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1865)"); } }; --- 857,871 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.387, -0.739, -0.599, 0.114 }; int lda = 2; ! double B[] = { 0.7, 0.473, 0.86, -0.557, 0.283, 0.62 }; int ldb = 3; ! double B_expected[] = { -0.7, -0.473, -0.86, 0.1377, -0.566327, -1.13514 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1857)"); } }; *************** *** 881,895 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.427, 0.193, -0.959, -0.679 }; int lda = 2; ! double B[] = { -0.646, 0.741, -0.339, 0.049, 0.734, -0.182 }; int ldb = 2; ! double B_expected[] = { -0.3963857167, -0.10913107511, -0.0955986383061, -0.00721649484536, 0.232096380888, 0.0268041237113 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1866)"); } }; --- 881,895 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.683, -0.009, -0.451, -0.185 }; int lda = 2; ! double B[] = { 0.552, 0.083, -0.976, 0.22, -0.895, -0.301 }; int ldb = 2; ! double B_expected[] = { 0.511946499941, 0.448648648649, -2.21423766373, 1.18918918919, -0.236033397966, -1.62702702703 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1858)"); } }; *************** *** 905,919 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.282, 0.766, -0.422, -0.518 }; int lda = 2; ! double B[] = { 0.269, 0.211, -0.911, -0.685, -0.777, -0.919 }; int ldb = 2; ! double B_expected[] = { 0.0358042, 0.0211, -0.120007, -0.0685, -0.1164818, -0.0919 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1867)"); } }; --- 905,919 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.141, 0.944, 0.529, 0.636 }; int lda = 2; ! double B[] = { 0.178, -0.22, -0.645, -0.585, -0.342, -0.594 }; int ldb = 2; ! double B_expected[] = { -0.29438, 0.22, 0.335535, 0.585, 0.027774, 0.594 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1859)"); } }; *************** *** 929,943 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.877, -0.818, 0.191, 0.468 }; int lda = 2; ! double B[] = { 0.517, 0.669, 0.337, -0.579, 0.885, -0.677 }; int ldb = 2; ! double B_expected[] = { -0.0589509692132, 0.039910485435, -0.0384264538198, -0.190882135095, -0.100912200684, -0.321038846495 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1868)"); } }; --- 929,943 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.541, 0.584, -0.394, 0.371 }; int lda = 2; ! double B[] = { 0.668, 0.848, -0.816, -0.925, -0.145, 0.746 }; int ldb = 2; ! double B_expected[] = { -1.23475046211, -0.342063962613, 1.50831792976, 0.118982018923, 0.268022181146, -2.43268181614 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1860)"); } }; *************** *** 953,967 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.469, 0.115, 0.284, 0.139 }; int lda = 2; ! double B[] = { 0.889, -0.002, -0.686, -0.256, 0.028, 0.371 }; int ldb = 2; ! double B_expected[] = { 0.0889, -0.0104235, -0.0686, -0.017711, 0.0028, 0.036778 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1869)"); } }; --- 953,967 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.836, -0.024, 0.226, 0.416 }; int lda = 2; ! double B[] = { -0.172, -0.601, 0.542, 0.25, 0.746, 0.55 }; int ldb = 2; ! double B_expected[] = { 0.172, 0.605128, -0.542, -0.263008, -0.746, -0.567904 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1861)"); } }; *************** *** 977,991 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.218, -0.819, -0.523, 0.042, 0.545, -0.292, 0.283, 0.224, 0.247 }; int lda = 3; ! double B[] = { 0.677, 0.153, -0.272, -0.226, 0.987, -0.216 }; int ldb = 3; ! double B_expected[] = { -0.310550458716, -0.438607019611, -1.28619894589, 0.103669724771, 0.336890834105, 0.530329512606 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1870)"); } }; --- 977,991 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.544, 0.721, 0.623, 0.392, -0.808, -0.022, -0.665, -0.616, -0.735 }; int lda = 3; ! double B[] = { -0.526, -0.486, -0.716, 0.361, 0.365, -0.492 }; int ldb = 3; ! double B_expected[] = { 0.966911764706, 0.261316067268, -0.162398536147, -0.663602941176, -0.140417971025, -1.22766726121 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1862)"); } }; *************** *** 1001,1015 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.241, 0.561, 0.164, 0.486, 0.891, -0.508, -0.596, -0.074, 0.576 }; int lda = 3; ! double B[] = { -0.325, 0.382, 0.368, 0.761, -0.349, 0.324 }; int ldb = 3; ! double B_expected[] = { -0.0325, 0.0564325, 0.07079771, 0.0761, -0.0775921, -0.0194971868 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1871)"); } }; --- 1001,1015 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.907, 0.558, -0.233, 0.073, -0.734, -0.058, -0.115, 0.513, 0.503 }; int lda = 3; ! double B[] = { -0.606, -0.124, 0.641, -0.074, -0.053, -0.734 }; int ldb = 3; ! double B_expected[] = { 0.606, -0.214148, -0.512222584, 0.074, 0.011708, 0.751921064 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1863)"); } }; *************** *** 1025,1039 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.76, 0.58, -0.203, 0.053, 0.792, 0.355, -0.685, 0.449, -0.367 }; int lda = 3; ! double B[] = { 0.861, -0.44, 0.842, -0.019, -0.382, -0.579 }; int ldb = 3; ! double B_expected[] = { -0.0986936127734, 0.0745114634079, -0.229427792916, 0.149297547123, -0.137672708006, 0.157765667575 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1872)"); } }; --- 1025,1039 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.9, 0.063, -0.652, -0.841, 0.251, -0.8, 0.365, 0.809, 0.336 }; int lda = 3; ! double B[] = { -0.584, -0.058, -0.964, -0.214, -0.632, -0.611 }; int ldb = 3; ! double B_expected[] = { -8.93978245747, -9.01617340163, 2.86904761905, -3.62368367799, -3.34313934737, 1.81845238095 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1864)"); } }; *************** *** 1049,1063 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.802, 0.298, 0.159, 0.333, 0.515, 0.715, -0.32, -0.217, 0.301 }; int lda = 3; ! double B[] = { -0.268, 0.1, -0.631, 0.472, 0.796, 0.278 }; int ldb = 3; ! double B_expected[] = { -0.0457623309, -0.0036927, -0.0631, 0.0275803442, 0.0856326, 0.0278 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1873)"); } }; --- 1049,1063 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.934, -0.608, 0.49, 0.351, -0.301, 0.602, 0.873, 0.031, -0.2 }; int lda = 3; ! double B[] = { -0.541, -0.729, -0.382, 0.741, 0.546, -0.833 }; int ldb = 3; ! double B_expected[] = { -0.044208458, 0.717158, 0.382, -1.267499127, -0.571823, 0.833 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1865)"); } }; *************** *** 1073,1087 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.028, 0.186, -0.435, -0.747, 0.212, 0.257, 0.804, -0.595, 0.64 }; int lda = 3; ! double B[] = { 0.729, -0.847, -0.577, 0.056, -0.493, 0.619 }; int ldb = 2; ! double B_expected[] = { -2.60357142857, 3.025, -9.44607479784, 10.685259434, -5.58819230648, 6.23051463001 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1874)"); } }; --- 1073,1087 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.339, 0.049, 0.734, -0.182, 0.427, 0.193, -0.959, -0.679, 0.269 }; int lda = 3; ! double B[] = { 0.824, 0.907, 0.632, -0.348, -0.646, 0.741 }; int ldb = 2; ! double B_expected[] = { 2.43067846608, 2.67551622419, -0.444066789635, 1.95537225481, 9.9460940476, 11.7193971004 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1866)"); } }; *************** *** 1097,1111 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { -0.74, -0.091, 0.484, 0.769, 0.91, 0.817, -0.26, 0.579, 0.393 }; int lda = 3; ! double B[] = { 0.109, 0.969, -0.668, 0.544, 0.753, 0.796 }; int ldb = 2; ! double B_expected[] = { 0.0109, 0.0969, -0.0751821, -0.0201161, 0.1216644359, 0.1164412219 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1875)"); } }; --- 1097,1111 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { 0.766, -0.422, -0.518, 0.517, 0.669, 0.337, -0.579, 0.885, -0.677 }; int lda = 3; ! double B[] = { 0.211, -0.911, -0.685, -0.777, -0.919, 0.282 }; int ldb = 2; ! double B_expected[] = { -0.211, 0.911, 0.794087, 0.306013, 0.094064005, -0.025352505 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1867)"); } }; *************** *** 1121,1135 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.123, -0.328, -0.482, 0.083, -0.125, -0.712, -0.757, -0.009, 0.237 }; int lda = 3; ! double B[] = { -0.18, 0.358, 0.839, -0.725, 0.73, -0.095 }; int ldb = 2; ! double B_expected[] = { -5.40775366883, 2.28950005146, -2.42566413502, 0.808320675105, 0.308016877637, -0.0400843881857 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1876)"); } }; --- 1121,1135 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.686, -0.256, 0.028, 0.371, 0.469, 0.115, 0.284, 0.139, 0.677 }; int lda = 3; ! double B[] = { -0.877, -0.818, 0.191, 0.468, 0.889, -0.002 }; int ldb = 2; ! double B_expected[] = { -1.30020532939, -0.819646768394, -0.0852626506631, -0.998592183627, -1.31314623338, 0.00295420974889 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1868)"); } }; *************** *** 1145,1159 **** int M = 2; int N = 3; ! double alpha = 0.1; ! double A[] = { 0.255, -0.069, -0.137, -0.45, -0.24, 0.221, -0.509, -0.484, -0.131 }; int lda = 3; ! double B[] = { -0.563, 0.993, 0.508, 0.771, 0.745, 0.233 }; int ldb = 2; ! double B_expected[] = { -0.0437243505, 0.1074566983, 0.0343355, 0.0719507, 0.0745, 0.0233 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1877)"); } }; --- 1145,1159 ---- int M = 2; int N = 3; ! double alpha = -1; ! double A[] = { -0.819, -0.523, 0.042, 0.545, -0.292, 0.283, 0.224, 0.247, -0.325 }; int lda = 3; ! double B[] = { 0.153, -0.272, -0.226, 0.987, -0.216, -0.218 }; int ldb = 2; ! double B_expected[] = { -0.075843944, -0.285622962, 0.164872, -1.048694, 0.216, 0.218 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1869)"); } }; *************** *** 1170,1183 **** int N = 3; double alpha = -1; ! double A[] = { -0.772, 0.079, -0.227, 0.998 }; int lda = 2; ! double B[] = { -0.095, 0.012, -0.988, -0.722, 0.738, 0.05 }; int ldb = 3; ! double B_expected[] = { -0.123056994819, 0.0155440414508, -1.27979274611, 0.733187878347, -0.740709398071, 0.051206039021 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1878)"); } }; --- 1170,1183 ---- int N = 3; double alpha = -1; ! double A[] = { 0.164, 0.486, 0.891, -0.508 }; int lda = 2; ! double B[] = { 0.368, 0.761, -0.349, 0.324, 0.241, 0.561 }; int ldb = 3; ! double B_expected[] = { -2.24390243902, -4.64024390244, 2.12804878049, -1.50893028615, -3.96487900903, 3.14021989629 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1870)"); } }; *************** *** 1194,1207 **** int N = 3; double alpha = -1; ! double A[] = { -0.045, 0.059, -0.61, -0.328 }; int lda = 2; ! double B[] = { 0.302, -0.099, 0.521, 0.487, -0.961, 0.903 }; int ldb = 3; ! double B_expected[] = { -0.302, 0.099, -0.521, -0.469182, 0.955159, -0.872261 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1879)"); } }; --- 1194,1207 ---- int N = 3; double alpha = -1; ! double A[] = { -0.019, -0.382, -0.579, 0.76 }; int lda = 2; ! double B[] = { -0.596, -0.074, 0.576, 0.861, -0.44, 0.842 }; int ldb = 3; ! double B_expected[] = { 0.596, 0.074, -0.576, -0.633328, 0.468268, -1.062032 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1871)"); } }; *************** *** 1218,1231 **** int N = 3; double alpha = -1; ! double A[] = { -0.319, 0.642, 0.511, 0.762 }; int lda = 2; ! double B[] = { 0.883, 0.987, 0.436, -0.783, 0.175, -0.973 }; int ldb = 3; ! double B_expected[] = { 4.41405227952, 2.72615785879, 3.41221747752, 1.02755905512, -0.229658792651, 1.27690288714 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1880)"); } }; --- 1218,1231 ---- int N = 3; double alpha = -1; ! double A[] = { 0.449, -0.367, -0.268, 0.1 }; int lda = 2; ! double B[] = { 0.58, -0.203, 0.053, 0.792, 0.355, -0.685 }; int ldb = 3; ! double B_expected[] = { -6.01906458797, -1.66681514477, 3.9706013363, -7.92, -3.55, 6.85 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1872)"); } }; *************** *** 1242,1255 **** int N = 3; double alpha = -1; ! double A[] = { 0.676, 0.038, 0.543, 0.296 }; int lda = 2; ! double B[] = { 0.804, -0.28, -0.318, 0.382, -0.165, -0.007 }; int ldb = 3; ! double B_expected[] = { -0.596574, 0.190405, 0.314199, -0.382, 0.165, 0.007 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1881)"); } }; --- 1242,1255 ---- int N = 3; double alpha = -1; ! double A[] = { 0.159, 0.333, 0.515, 0.715 }; int lda = 2; ! double B[] = { -0.631, 0.472, 0.796, 0.278, 0.802, 0.298 }; int ldb = 3; ! double B_expected[] = { 0.77417, -0.05897, -0.64253, -0.278, -0.802, -0.298 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1873)"); } }; *************** *** 1266,1279 **** int N = 3; double alpha = -1; ! double A[] = { -0.722, -0.355, -0.14, -0.146 }; int lda = 2; ! double B[] = { -0.44, 0.751, -0.995, 0.625, 0.16, -0.127 }; int ldb = 2; ! double B_expected[] = { -0.609418282548, 5.72820931203, -1.37811634349, 5.60230334307, 0.221606648199, -1.08236253937 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1882)"); } }; --- 1266,1279 ---- int N = 3; double alpha = -1; ! double A[] = { 0.056, -0.493, 0.619, -0.028 }; int lda = 2; ! double B[] = { -0.32, -0.217, 0.301, 0.729, -0.847, -0.577 }; int ldb = 2; ! double B_expected[] = { 5.71428571429, 118.576530612, -5.375, -92.7901785714, 15.125, 313.763392857 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1874)"); } }; *************** *** 1290,1303 **** int N = 3; double alpha = -1; ! double A[] = { 0.817, -0.619, 0.548, 0.064 }; int lda = 2; ! double B[] = { -0.756, -0.169, 0.429, -0.789, 0.79, 0.479 }; int ldb = 2; ! double B_expected[] = { 0.756, -0.245288, -0.429, 1.024092, -0.79, -0.04608 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1883)"); } }; --- 1290,1303 ---- int N = 3; double alpha = -1; ! double A[] = { -0.595, 0.64, 0.109, 0.969 }; int lda = 2; ! double B[] = { 0.186, -0.435, -0.747, 0.212, 0.257, 0.804 }; int ldb = 2; ! double B_expected[] = { -0.186, 0.455274, 0.747, -0.293423, -0.257, -0.775987 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1875)"); } }; *************** *** 1314,1327 **** int N = 3; double alpha = -1; ! double A[] = { 0.496, -0.734, -0.679, -0.697 }; int lda = 2; ! double B[] = { -0.483, -0.508, -0.819, 0.237, 0.852, -0.512 }; int ldb = 2; ! double B_expected[] = { -0.104772180312, -0.728837876614, 2.1543973018, 0.340028694405, -2.80479705651, -0.734576757532 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1884)"); } }; --- 1314,1327 ---- int N = 3; double alpha = -1; ! double A[] = { 0.484, 0.769, 0.91, 0.817 }; int lda = 2; ! double B[] = { -0.668, 0.544, 0.753, 0.796, -0.74, -0.091 }; int ldb = 2; ! double B_expected[] = { 2.4380974539, -0.665850673195, -0.0077814418807, -0.97429620563, 1.35195534965, 0.111383108935 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1876)"); } }; *************** *** 1338,1351 **** int N = 3; double alpha = -1; ! double A[] = { 0.049, 0.079, -0.8, -0.762 }; int lda = 2; ! double B[] = { 0.426, 0.094, 0.794, -0.098, 0.442, -0.991 }; int ldb = 2; ! double B_expected[] = { -0.418574, -0.094, -0.801742, 0.098, -0.520289, 0.991 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1885)"); } }; --- 1338,1351 ---- int N = 3; double alpha = -1; ! double A[] = { -0.725, 0.73, -0.095, 0.123 }; int lda = 2; ! double B[] = { -0.26, 0.579, 0.393, -0.18, 0.358, 0.839 }; int ldb = 2; ! double B_expected[] = { 0.68267, -0.579, -0.5244, 0.18, 0.25447, -0.839 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1877)"); } }; *************** *** 1362,1375 **** int N = 3; double alpha = -1; ! double A[] = { -0.974, 0.848, -0.765, 0.528, -0.693, 0.252, -0.135, -0.507, 0.954 }; int lda = 3; ! double B[] = { 0.395, 0.791, -0.787, 0.636, 0.271, -0.905 }; int ldb = 3; ! double B_expected[] = { 1.01254427581, 1.4413950829, 0.824947589099, 0.548697105717, 0.736012415258, 0.948637316562 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1886)"); } }; --- 1362,1375 ---- int N = 3; double alpha = -1; ! double A[] = { -0.009, 0.237, -0.563, 0.993, 0.508, 0.771, 0.745, 0.233, 0.255 }; int lda = 3; ! double B[] = { -0.328, -0.482, 0.083, -0.125, -0.712, -0.757 }; int ldb = 3; ! double B_expected[] = { 21.9110553583, 1.44282075035, -0.325490196078, -281.330646047, -3.10396016674, 2.96862745098 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1878)"); } }; *************** *** 1386,1399 **** int N = 3; double alpha = -1; ! double A[] = { 0.919, -0.513, -0.38, 0.587, -0.862, 0.598, 0.714, 0.726, 0.491 }; int lda = 3; ! double B[] = { -0.056, -0.802, -0.962, 0.656, -0.195, -0.679 }; int ldb = 3; ! double B_expected[] = { 0.537869412, 0.226724, 0.962, -0.506244546, -0.211042, 0.679 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1887)"); } }; --- 1386,1399 ---- int N = 3; double alpha = -1; ! double A[] = { -0.484, -0.131, 0.563, -0.095, 0.012, -0.988, -0.722, 0.738, 0.05 }; int lda = 3; ! double B[] = { -0.069, -0.137, -0.45, -0.24, 0.221, -0.509 }; int ldb = 3; ! double B_expected[] = { -0.1081604, 0.5816, 0.45, -0.009639148, 0.281892, 0.509 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1879)"); } }; *************** *** 1410,1423 **** int N = 3; double alpha = -1; ! double A[] = { -0.287, -0.009, -0.989, -0.062, 0.714, -0.293, -0.875, 0.371, 0.728 }; int lda = 3; ! double B[] = { -0.14, -0.969, 0.702, -0.317, -0.739, -0.518 }; int ldb = 3; ! double B_expected[] = { -0.487804878049, 1.31478445037, -2.22062403761, -1.10452961672, 0.939102470256, -1.09460224052 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1888)"); } }; --- 1410,1423 ---- int N = 3; double alpha = -1; ! double A[] = { 0.521, 0.487, -0.961, 0.903, -0.045, 0.059, -0.61, -0.328, 0.883 }; int lda = 3; ! double B[] = { -0.772, 0.079, -0.227, 0.998, 0.302, -0.099 }; int ldb = 3; ! double B_expected[] = { 1.48176583493, 31.4896566432, 12.9778986844, -1.91554702495, -31.7275325229, -12.9967319963 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1880)"); } }; *************** *** 1434,1447 **** int N = 3; double alpha = -1; ! double A[] = { 0.236, 0.605, 0.338, -0.926, 0.362, 0.562, -0.554, 0.076, 0.85 }; int lda = 3; ! double B[] = { 0.113, 0.604, 0.859, 0.216, -0.6, -0.048 }; int ldb = 3; ! double B_expected[] = { -0.113, -0.708638, -0.867745512, -0.216, 0.399984, -0.102062784 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1889)"); } }; --- 1434,1447 ---- int N = 3; double alpha = -1; ! double A[] = { 0.642, 0.511, 0.762, 0.804, -0.28, -0.318, 0.382, -0.165, -0.007 }; int lda = 3; ! double B[] = { 0.987, 0.436, -0.783, 0.175, -0.973, -0.319 }; int ldb = 3; ! double B_expected[] = { -0.987, 0.357548, 1.21902942, -0.175, 1.1137, 0.5696105 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1881)"); } }; *************** *** 1458,1471 **** int N = 3; double alpha = -1; ! double A[] = { -0.476, 0.428, -0.214, -0.889, -0.526, -0.704, 0.458, -0.479, 0.077 }; int lda = 3; ! double B[] = { 0.124, -0.007, 0.452, 0.966, 0.42, 0.369 }; int ldb = 2; ! double B_expected[] = { -15.8695808776, -16.2060574143, 5.8264777048, 6.20050861686, -5.45454545455, -4.79220779221 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1890)"); } }; --- 1458,1471 ---- int N = 3; double alpha = -1; ! double A[] = { -0.995, 0.625, 0.16, -0.127, -0.722, -0.355, -0.14, -0.146, -0.756 }; int lda = 3; ! double B[] = { 0.676, 0.038, 0.543, 0.296, -0.44, 0.751 }; int ldb = 2; ! double B_expected[] = { 0.650272121575, -0.128270318012, 0.869769452872, 0.209093640534, -0.582010582011, 0.993386243386 }; cblas_dtrsm(order, side, uplo, trans, diag, M, N, alpha, A, lda, B, ldb); { int i; for (i = 0; i < 6; i++) { ! gsl_test_rel(B[i], B_expected[i], dbleps, "dtrsm(case 1882)"); } }; *************** *** 1482,1495 **** int N = 3; double alpha = -1; ! double A[] = { 0.748, 0.242, -0.964, 0.422, -0.78, -0.595, -0.926, -0.474, 0.